Friend oConn As OleDbConnection
Friend oDS_Geraete As DataSet
Friend oAdapt_Geraete As System.Data.OleDb.OleDbDataAdapter
Friend oDS_Buchungen As DataSet
Friend oAdapt_Buchungen As System.Data.OleDb.OleDbDataAdapter
 
Private Sub frmGeraete_Load(ByVal eventSender As System.Object, ByVal eventArgs _
  As System.EventArgs) Handles MyBase.Load
 
        Try
            Me.InitializeComponent()
            Me.StartPosition = FormStartPosition.CenterScreen
 
            'Oeffne Datenbank
            ModADONet.dbOpenNewConnection(Application.StartupPath & "\" & _
              "Geraete.mdb")
            ' DataSet erstellen
            oDS_Geraete = New DataSet
            oAdapt_Geraete = New System.Data.OleDb.OleDbDataAdapter
            ModADONet.ReadFullTable(oDS_Geraete, oAdapt_Geraete, "Geraete", _
              Me.DataGridView1)
            oDS_Buchungen = New DataSet
            oAdapt_Buchungen = New System.Data.OleDb.OleDbDataAdapter
            ModADONet.ReadFullTable(oDS_Buchungen, oAdapt_Buchungen, _
              "Buchungen", Me.DataGridView2)
 
        Catch
            Catch_Errors("frmGeraete:Load")
        Finally
            If oConn.State = ConnectionState.Open Then _
              ModADONet.dbCloseConnection()
        End Try
    End Sub

Public Sub ReadFullTable(ByVal oDs As DataSet, ByVal oAdapter As _
  OleDbDataAdapter, _
        ByVal sTable As String, ByVal mGrid As DataGridView)
 
        Try
            Dim cmd As OleDbCommand = New OleDbCommand
            cmd.CommandText = "SELECT * FROM [" & sTable & "]"
            cmd.Connection = oConn
            oAdapter.SelectCommand = cmd
 
            'DataSet mit Daten aus dem DataAdapter füllen
            oAdapter.Fill(oDs)
            frmGeraete.BS.DataSource = oDs.Tables(0)
 
            ' DataGrid füllen und Daten anzeigen
            With mGrid
                .DataSource = oDs.Tables(0)
                .Refresh()
            End With
 
            frmGeraete.StatusBar1.Items.Item(3).Text = "Tabelle " & sTable & "" & _
              "geöffnet"
        Catch ex As OleDbException
            MsgBox(ex.Source & " verursachte den Fehler:" & vbCr & ex.Message, _
              MsgBoxStyle.Critical, "ReadFullTable")
            frmGeraete.StatusBar1.Items.Item(2).Text = "Tabelle " & sTable & "" & _
            "nicht gefunden"
        End Try
    End Sub