Public myConnToAccess As OleDbConnection
Dim mySQLCommand As OleDbCommand
Dim mySQLStrg As String
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim tables As DataTableCollection
Dim reader As OleDbDataReader
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
myConnToAccess = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Kunden.accdb")
myConnToAccess.Open()
ds = New DataSet
tables = ds.Tables
da = New OleDbDataAdapter("SELECT Firma from Netzwerkeinstellungen", myConnToAccess)
da.Fill(ds, "Netzwerkeinstellungen")
Dim view1 As New DataView(tables(0))
With ComboBox1
.DataSource = KundenDataSet.Tables("Netzwerkeinstellungen")
.DisplayMember = "Firma"
.ValueMember = "Firma"
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With