Организовать авторизацию в программе, использующей БД

Private db As Database
Private rs As Recordset
Const MyPassword As String = "" 'пароль для базы данных, пока пустой, потом запаролите
 
' для создания базы и таблицы
Private Sub Command2_Click()
    Set db = CreateDatabase("1.mdb", dbLangGeneral, dbEncrypt)
    db.Execute "CREATE TABLE users (Login TEXT, Password TEXT);"
    Set rs = db.OpenRecordset("select * from users", dbOpenDynaset)
    rs.AddNew
    rs.Fields("Login") = "user1"
    rs.Fields("Password") = "password1"
    rs.Update
    rs.AddNew
    rs.Fields("Login") = "user2"
    rs.Fields("Password") = "password2"
    rs.Update
    rs.AddNew
    rs.Fields("Login") = "user3"
    rs.Fields("Password") = "password3"
    rs.Update
    rs.Close
    db.Close
End Sub
 
Private Sub Command1_Click()
    Set db = OpenDatabase(App.Path + "\1.mdb", False, False, ";pwd=" + MyPassword)
    Set rs = db.OpenRecordset("select * from users", dbOpenDynaset)
    rs.FindFirst "Login=""" + Text1.Text + """"
    If Text2.Text = rs.Fields("Password") Then
        MsgBox "Есть"
    Else
        MsgBox "Нету"
    End If
    rs.Close
    db.Close
End Sub

Private Sub Command2_Click()
    Set db = CreateDatabase("1.mdb", dbLangGeneral, dbEncrypt)
    db.Execute "CREATE TABLE users (Login TEXT, Password TEXT);"
    db.Execute "INSERT INTO users VALUES ('user1', 'password1')"
    db.Execute "INSERT INTO users VALUES ('user2', 'password2')"
    db.Execute "INSERT INTO users VALUES ('user3', 'password3')"
    db.Close
End Sub

 rs.FindFirst

Dim Rs1 as DAO.Recordset
Dim Rs2 as ADODB.Recordset