Imports System.Data.OleDb
Imports System
Imports System.IO
Imports System.Data
' ab hier dann deine Sub...
Dim Datenbank as String="D:\Datenbank.mdb"
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Jet" & _
  "OleDB:Database;Data Source=" & Datenbank & ";"
Dim objConnection As New OleDbConnection(ConStr)
Dim objDataAdapter As OleDbDataAdapter
Dim objDataTable As DataTable
objDataAdapter = New OleDbDataAdapter("SELECT * FROM TABELLE", ConStr)
objDataTable = New DataTable()
Dim cmd As OleDbCommandBuilder = New OleDbCommandBuilder(objDataAdapter)
 
cmd.QuotePrefix = "["
cmd.QuoteSuffix = "]"
 
objDataAdapter.FillSchema(objDataTable, SchemaType.Source)
objDataAdapter.Fill(objDataTable)
 
DataGridView1.DataSource = objDataTable