'zu Beginn die Imports-Anweisung
imports System.Data
 
'Dann dein Code, z. B. in der Form_Load-Prozedur
Dim strSql As String = "SELECT * FROM Test"
Dim con as new OleDb.Oledbconnection    'aus dem Kopf heraus, müsste aber so 
' passen
'Dim da As DbDataAdapter = New SqlDataAdapter(strSql, con) 
dim da as new oledb.oledbdataadapter
'Dim tbl As DataTable = DatenDataSet1.Test      
dim tbl as new DataTable()
dim bSrc as new BindingSource
 
con.connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 'hier 
' deine Datenbankdatei mit komplettem Pfad als String
 
da.SelectCommand = new oledb.oledbcommand(strSql, con)
con.open
tbl.clear
da.fill(tbl)
con.close
bs.DataSource = tbl

dgv.DataSource = bs