Dim sConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= projektnachweis.mdb;" & _
        "Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    Dim sSQL As String = "SELECT * FROM t_Mitarbeiter;"
#Region " Vom Windows Form Designer generierter Code "
 
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim objConn As New OleDb.OleDbConnection(sConnection)
        Dim objDataAdapter As New OleDb.OleDbDataAdapter(sSQL, objConn)
 
        Try
            objConn.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If objConn.State = ConnectionState.Open Then
            Try
                Dim objDS As New DataSet
                objDataAdapter.Fill(objDS, "t_Mitarbeiter")
                Dim objDV As New DataView(objDS.Tables("t_Mitarbeiter"))
                Dim objTable As DataTable
                objTable = objDS.Tables("t_Mitarbeiter")
                Dim objRow As DataRow
                Dim objCol As DataColumn
                objCol = objTable.Columns(1)
 
                txtTest.Text = objTable.Rows.Count.ToString
            Catch ex As Exception
                MsgBox(ex.Message)
                Exit Sub
            End Try
        End If
    End Sub