Private Sub SubUserPass_Click()

' On Error GoTo Error_Handler

Dim TblPers As TableDef
Dim Username As String
Dim Password As String
Dim Admin As Integer
Dim LogInUsername As String
Dim LogInPassword As String
Dim DLookUsername As String
Dim DLookPassword As String
Dim Error_Handler As Integer

DLookUsername = DLookup("[Username]", "TblPers", "[Admin] = -1")
DLookPassword = DLookup("[Password]", "TblPers")

If Me.LogInUsername.Value = DLookUsername And Me.LogInPassword.Value = DLookPassword Then
    DoCmd.OpenForm "FrmAddEdit"
    DoCmd.Close acForm, "FrmAdminUserPass"
    Exit Sub
Else
    ' GoTo Error_Handler
    Exit Sub
End If

' Error_Handler:
' Error_Handler = MsgBox("You do not have access to this application.", vbOKOnly, "Access Not Granted")
' Exit Sub

End Sub