Simpelt Tjek Bruger fra Database

Jeg har min database, min kode skal tjekke om brugeren intastet i de 2 felter eksisterer...
Fejlen jeg får: Variable not defined, og så markerer den teksten Data1 Sub Form_Load()
Her er min kode:
Option Explicit
Dim antal As String
Dim pos As String
Private Sub Command1_Click()
Dim user As String
Dim pass As String
    user = Text1.Text
    pass = Text2.Text
    Data1.Recordset.MoveFirst
    Do While Data1.Recordset.EOF = False
        If Data1.Recordset("Username") = user And Data1.Recordset("Password") = pass Then
            Exit Sub
        End If
        Data1.Recordset.MoveNext
    Loop
MsgBox ("Brugeren findes ikke!")
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\" & "Profiles.mdb"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    On Error GoTo err
        Timer1.Enabled = False
        Data1.Recordset.AddNew
Exit Sub
err:
    MsgBox err.Description, , "Error"
    Data1.Refresh
End Sub