Populate combobox from excel

openfiledialog1.ShowDialog()

openfiledialog1.Filter = "allfiles|*.xls"

TextBox1.Text = openfiledialog1.FileName

End Sub

Private Sub btndisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndisplay.Click

pintu(TextBox1.Text)

Try

con.Open()

str = "select * from [sheet1$]"

com = New OleDbCommand(str, con)

ds = New DataSet

oledbda = New OleDbDataAdapter(com)

oledbda.Fill(ds, "[sheet1$]")

con.Close()

DataGridView1.DataSource = ds

DataGridView1.DataMember = "[sheet1$]"

Catch ex As Exception

MsgBox(ex.Message)

End Try

Try

con.Open()

str = "select * from [sheet1$]"

com = New OleDbCommand(str, con)

oledbda = New OleDbDataAdapter(com)

ds = New DataSet

oledbda.Fill(ds, "[sheet1$]")

con.Close()

dt = ds.Tables("[sheet1$]")

Dim i As Integer

For i = 0 To dt.Rows.Count - 1

ComboBox1.Items.Add(dt.Rows(i).ItemArray(1))

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Text = "Please select"

End Sub

End Class