Dim conn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data" & _
  "source=C:\Dokumente und Einstellungen\Michael\Desktop\XXX.mdb")
Dim cmdstr As String = "select * from Artikel"
Dim cmd As New OleDbCommand(cmdstr, conn)
 
Dim da As New OleDbDataAdapter(cmd)
Dim ds As New DataSet
conn.Open()
da.Fill(ds, "Artikel")
conn.Close()
 
Dim dt As DataTable = ds.Tables("Artikel")
 
'zur Veranschaulichung im DataGridView
DataGridView1.DataSource = dt