Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM" & _
        "tbl_Town", "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        Application.StartupPath & "\DLVS.mdb")
        Dim myDataSet As New DataSet
        '' Dataset füllen 
        'myDataAdapter.Fill(myDataSet)
        'Me.ComboBox1.DataSource = myDataAdapter
 
        myDataAdapter.Fill(myDataSet, "tbl_Town")
        Dim bs As New BindingSource(myDataSet.Tables, "tbl_Town")
        'DataGridView1.DataSource = bs
        'TextBox1.DataBindings.Add("Text", bs, "CustomerName")
        ComboBox1.DataSource = bs
        ComboBox1.DisplayMember = "Town"
    End Sub
End Class