Private Sub cmdLoad_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdLoad.Click
        Dim ds As DataSet = New DataSet()
        Dim Access As New Class_Access_Datenbank()
 
        Access.File_Name = "Bücher.mdb"
        Access.Load_complete(ds, "Buch")
        'DataGrid1.SetDataBinding(ds, "Buch")
 
    End Sub

Public Class Class_Access_Datenbank
    Private File As String 'Gibt den Namen der Datei an
 
    Private conn As New OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & File & ";")
    Private sql As String = "SELECT * FROM Buch;"
    Private cmd As New OleDb.OleDbCommand(sql, conn)
    Private da As New OleDb.OleDbDataAdapter(cmd)
 
    WriteOnly Property File_Name()
        Set(ByVal Value)
            File = Value
        End Set
    End Property
 
    Public Sub Load_complete(ByRef Data As DataSet, ByVal Table As String)
        conn.Open()
 
        'Data.Clear()
        'da.Fill(Data, Table)
 
        conn.Close()
    End Sub
 
End Class