Dim sConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\projektnachweis.mdb;" & _
        "Mode=ReadWrite|Share Deny None;Persist Security Info=False"
        Dim sSQL As String = "SELECT * FROM t_Mitarbeiter;"
 
 
        Dim objConn As New OleDb.OleDbConnection(sConnection)
        Dim objDataAdapter As New OleDb.OleDbDataAdapter(sSQL, objConn)
        Dim objDS As New DataSet
        Dim objDV As New DataView
        Try
            objConn.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If objConn.State = ConnectionState.Open Then
            Try
                objDataAdapter.Fill(objDS, "t_Mitarbeiter")
                objDV.Table = objDS.Tables!t_Mitarbeiter
 
            Catch ex As Exception
                MsgBox(ex.Message)
                Exit Sub
            End Try
        End If