Populate combobox from excelsheet

We will know how to populate one column from excel to combobox.

Imports System.Data.OleDb
Module Module1
    Public con As OleDbConnection
    Sub pintu(ByVal s As String)
        con = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & _
                                        "data source='" & s & " '; " & "Extended Properties=Excel 8.0;")

    End Sub
    Public com As OleDbCommand
    Public ds As DataSet
    Public oledbda As OleDbDataAdapter
    Public dt As DataTable
    Public str As String
End Module



Imports System.Data.OleDb
Public Class Form1

    Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
        Dim openfiledialog1 As New OpenFileDialog
        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)
            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))
            Next
        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