'zu Beginn die Imports-Anweisung
imports System.Data
 
 
'Dann dein Code, z. B. in der Form_Load-Prozedur
Dim connetionString as string  = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=dbname.mdb"
Dim strSql As String = "SELECT * FROM Test"
 
Dim da As New OleDbDataAdapter(strSql, connetionString) 
dim tbl as new DataTable()
dim bSrc as new BindingSource
da.fill(tbl)
bs.DataSource = tbl