dim dbcon as oledb.Connection
dbcon = New OleDb.OleDbConnection
dbcon.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet" & _
  "OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Database" & _
  "Password=;Data Source=Verkauf-Programme.mdb';Password=;Jet OLEDB:Engine" & _
  "Type=5;Jet OLEDB:Global Bulk" & _
  "Transactions=1;Provider='Microsoft.Jet.OLEDB.4.0';Jet OLEDB:System" & _
  "database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=ReadWrite;Jet" & _
  "OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet" & _
  "OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica" & _
  "Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False"
dbcon.Open()
 
dim dbdata as new oledb.oledbCommand
dim reader as oledb.oledbreader
 
dbdata.connection = dbcon
 
dbdata.CommandText ="hier das select oder was auch immer Kommando"
reader = dbdata.executereader
 
while reader.read = true
combobox1.items.add(reader.item("spaltenname")
end while
reader.close