Help me to connect the access DB

Hello to Everyone

I have a combo box on the VB 2008 form.And i am using Access 2007 as database .Now i want to populate the combo box using Access table data base. For this purpose i have write the code but it gives me error.Please let me clear by any experience person to check and correct the code.
My Access file name is "a". and is available on drive E.
For better understand i have also upload a screenshot.

Public Class Form1

Dim cn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;Data     Source=E:/a.mdb")

    Dim da As New OleDb.OleDbDataAdapter()
    Dim dt As New DataTable()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cn.Open()

        ComboBox1.Items.Clear()
        Dim r As DataRow
        For Each r In dt.Rows
        ComboBox1.Items.Add(r(1).ToString)
        Next

        cn.Close()

    End Sub
End Class

Thanks For Your Co-Operation

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Khan Abrar Ahmed12y ago
hi try this
Dim cn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\a.mdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn.Open()
da.SelectCommand = New OleDbCommand("select * from territories", cn)
da.Fill(dt)

Dim r As DataRow
For Each r In dt.Rows
ComboBox1.Items.Add(r([b]"TerritoryDescription"[/b]).ToString)
Next
cn.Close()
End Sub