Public rs as OleDb.OleDbRecordset

' Datenbank Verbindung
 
        Dim Conn As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\DruckerDB.mdb")
        If Conn.State <> ConnectionState.Open Then
            Try
                Conn.Open()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
 
        ' COUNT Anweisung Tabelle Kunde
 
        Dim dc As OleDb.OleDbCommand
        dc = New OleDb.OleDbCommand("SELECT COUNT* tbl_kunde", Conn)
        Dim rc As
        Try
            dc.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Dim Test As OleDb.OleDbDataReader
        Test = dc.ExecuteReader