' Dataset füllen
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        objDataAdapter = New OleDb.OleDbDataAdapter _
        ("SELECT benutzer.userid, benutzer.passwort FROM benutzer", _
        objConnection)
        objDataAdapter.Fill(objDataSet, "benutzer")
        objDataView = _
           New DataView(objDataSet.Tables("benutzer"))

    Function Login(ByVal login_id As String, ByVal login_pass As String) As _
      Boolean
        Return CType(objDataSet.Tables("benutzer").Select("userid = " & _
        login_id & " AND passwort = " & login_pass).Length, Boolean)
    End Function
 
        If Login("hans", "1234") = False Then
            MsgBox("Kein Zutritt !")
            Exit Sub