Access VBA Login

access_vba_login.vba

Option Compare Database

Private Sub LoginBtn_Click()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from dbo_Medewerker where medewerkerloginnaam='" & GebruikersnaamTxt.Value & "'")

If rst.RecordCount <= 0 Then
    MsgBox "Invalide login", vbCritical
    GebruikersnaamTxt.SetFocus
Else
    If IsNull(PasswordTxt.Value) Or rst("Wachtwoord") <> PasswordTxt.Value Then
        MsgBox "Invalide wachtwoord", vbCritical
        PasswordTxt.SetFocus
    Else
        DoCmd.Close
        DoCmd.OpenForm "Inloggen Rapportages"
    End If
End If
End Sub