' DataSet füllen und an DataGrid binden
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim cnn1 As New System.Data.OleDb.OleDbConnection()
Dim dtbl As New DataTable()
Dim drow As DataRow
Dim cmd1 As New System.Data.OleDb.OleDbCommand()
Dim dadp As New System.Data.OleDb.OleDbDataAdapter()
Dim dset As New DataSet()
cnn1 = GetOleDBConnection(TextBox1.Text)
dtbl = GetTables(cnn1)
With cmd1
    .Connection = cnn1
    .CommandType = CommandType.TableDirect
End With
For Each drow In dtbl.Rows
    cmd1.CommandText = drow(2).ToString
    With dadp
        .SelectCommand = cmd1
        .Fill(dset, drow(2).ToString)
    End With
Next
DataGrid1.DataSource = dset
End Sub
 
' Verbindung zur Access-Datebank herstellen
Function GetOleDBConnection(ByVal strFileName As String) As _
System.Data.OleDb.OleDbConnection
Dim cnn As New System.Data.OleDb.OleDbConnection()
With cnn
    If .State = ConnectionState.Open Then .Close()
    .ConnectionString = "provider=microsoft.jet.oledb.4.0;"
    .ConnectionString += "data source=" & strFileName & ";"
    .Open()
End With
Return (cnn)
End Function
 
' alle Tabellen der Access-Datenbank holen
Public Function GetTables(ByVal conn As System.Data.OleDb.OleDbConnection)
As DataTable
Dim schemaTable As DataTable
With conn
    If .State = ConnectionState.Closed Then .Open()
    schemaTable = _
        .GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, _
        New Object() {Nothing, Nothing, Nothing, "TABLE"})
    .Close()
End With
Return schemaTable
End Function

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg