Private Sub Command1_Click()
On Error GoTo Command1_Click_Err

    If (TextUsername = "Daniel") Then
        If (TextPassword = "Daniel") Then
            DoCmd.Close , ""
        Else
            Beep
            MsgBox "Wrong username or password", vbOKOnly, ""
        End If
    Else
        Beep
        MsgBox "Wrong username or password", vbOKOnly, ""
    End If


Command1_Click_Exit:
    Exit Sub

Command1_Click_Err:
    MsgBox Error$
    Resume Command1_Click_Exit

End Sub