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

rs.FindLast "NameField = '" & name.text & "'"
if rs.fields("password") = password.text then
else
 
end if

Sub FindFirstX()
 
    Dim dbsNorthwind As Database
    Dim rstCustomers As Recordset
    Dim strCountry As String
    Dim varBookmark As Variant
    Dim strMessage As String
    Dim intCommand As Integer
 
    Set dbsNorthwind = OpenDatabase("Áîðåé.mdb")
    Set rstCustomers = dbsNorthwind.OpenRecordset( _
        "SELECT Íàçâàíèå, Ãîðîä, Ñòðàíà " & _
        "FROM Êëèåíòû ORDER BY Íàçâàíèå", _
        dbOpenSnapshot)
 
    Do While True
        ' Ïðèíèìàåò äàííûå îò ïîëüçîâàòåëÿ è ñîáèðàåò ñòðîêó ïîèñêà.
 
strCountry = _
            Trim(InputBox("Ââåäèòå íàçâàíèå ñòðàíû."))
        If strCountry = "" Then Exit Do
        strCountry = "Ñòðàíà = '" & strCountry & "'"
 
        With rstCustomers
            ' Çàïîëíÿåò íàáîð çàïèñåé.
            .MoveLast
            ' Íàõîäèò ïåðâóþ çàïèñü, óäîâëåòâîðÿþùóþ ñòðîêå ïîèñêà. 
            ' Âûõîäèò èç öèêëà, åñëè òàêîé ñòðîêè íåò.
            .FindFirst strCountry
            If .NoMatch Then
                MsgBox "Íå íàéäåíû çàïèñè äëÿ " & _
                    strCountry & "."
 
Exit Do
            End If
 
            Do While True
                ' Ñîõðàíÿåò çàêëàäêó òåêóùåé çàïèñè.
                varBookmark = .Bookmark
                ' Ïðèíèìàåò ñïîñîá ïîèñêà, âûáðàííûé ïîëüçîâàòåëåì.
                strMessage = "Êîìïàíèÿ: " & !Íàçâàíèå & _
                    vbCr & "Ìåñòî: " & !Ãîðîä & ", " & _
                    !Ñòðàíà & vbCr & vbCr & _
                    strCountry & vbCr & vbCr & _
                    "[1 - FindFirst, 2 - FindLast, " & _
                    vbCr & "3 - FindNext, " & _
                    "4 - FindPrevious]"
 
intCommand = Val(Left(InputBox(strMessage), 1))
                If intCommand < 1 Or intCommand > 4 Then Exit Do
 
                ' Ïðèìåíÿåò âûáðàííûé ìåòîä Find. Ïðè íåóäà÷íîì 
                ' ïîèñêå âîçâðàùàåò ïîñëåäíþþ òåêóùóþ çàïèñü.
                If FindAny(intCommand, rstCustomers, _
                        strCountry) = False Then
                    .Bookmark = varBookmark
                    MsgBox "Çàïèñü íå íàéäåíà Âîçâðàò " & _
                        "íà òåêóùóþ çàïèñü."
                End If
 
            Loop
 
        End With
 
Exit Do
    Loop
 
    rstCustomers.Close
    dbsNorthwind.Close
 
End Sub
 
Function FindAny(intChoice As Integer, _
    rstTemp As Recordset, _
    strFind As String) As Boolean
 
    ' Èñïîëüçóåò ñïîñîá ïîèñêà, âûáðàííûé ïîëüçîâàòåëåì.
    Select Case intChoice
        Case 1
            rstTemp.FindFirst strFind
        Case 2
            rstTemp.FindLast strFind
        Case 3
            rstTemp.FindNext strFind
        Case 4
            rstTemp.FindPrevious strFind
 
End Select
 
    ' Çàäàåò âîçâðàùàåìîå çíà÷åíèå ïî çíà÷åíèþ ñâîéñòâà NoMatch.
    FindAny = IIf(rstTemp.NoMatch, False, True)
 
End Function

Public R_users As ADODB.Recordset
Set cnn = New ADODB.Connection 
 str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;"
 cnn.ConnectionString = str
 cnn.Open

module1.podkl
Set R_users = New ADODB.Recordset
R_users.CursorType = adOpenKeyset
R_users.LockType = adLockOptimistic
R_users.CursorLocation = adUseClient
R_users.ActiveConnection = cnn
R_users.Source = "Select * From users"
R_users.Open

Private db As Database
Private rs As Recordset
 
Private Sub Form_Load()
    Set db = OpenDatabase(App.Path + "\1.mdb", False, False, ";pwd=" + MyPassword)
    ' MyPassword - пароль на 1.mdb
End Sub
 
Private Sub Command1_Click()
    Set rs = db.OpenRecordset("select * from users", dbOpenDynaset)
    rs.FindFirst "Name=""" + Text1.Text + """"
    If Text2.Text = rs.Fields("Password") Then
        MsgBox "Åñòü"
    Else
        MsgBox "Íåòó"
    End If
    rs.Close
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    db.Close
End Sub