http://www.eksperten.dk/spm/458122

hvad går galt?

Den kommer med en fejl inde i modulet. Den stopper ved følgende: Private Sub OK_Click()

    On Error GoTo ok_click_fejl
    Dim db As Database, rs As Recordset

    If Not IsNull(Me!password) And Not IsNull(Me!initialer) Then
        If CheckBruger(Me!initialer, Me!password) = True Then
            Set db = CurrentDb
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "FrmOpstart"
        Else
            MsgBox "De angivne brugerdata er ikke korrekte" & vbNewLine & "Kontakt evt en administrator", vbCritical, "FEJL!"
            Me!password = ""
            Me!password.SetFocus
            Exit Sub
        End If
    Else
        If IsNull(Me!password) Then
            MsgBox "Password er ikke indtastet", vbCritical, "FEJL!"
            Me!password.SetFocus
        Else
            MsgBox "Initialer er ikke indtastet", vbCritical, "FEJL!"
            Me!initialer.SetFocus
        End If
        Exit Sub
    End If
    Exit Sub

ok_click_fejl:
If Err <> 94 Then
    MsgBox Error$ & Chr(10) & Str(Err)
    DoCmd.SetWarnings True
    'Exit Sub
    Resume Next
Else
    Resume Next
End If
End Sub

Den stopper ved de øverste 3 linier

Du skal have en reference til "Microsoft DAO 3.x Object Library"
Kig under menuen Tools->References

Det er gjort men nu får jeg fejlen Function CheckBruger(Login As String, password As String) As Integer

    Dim db As Database, rs As Recordset

    On Error GoTo CheckBruger_Error
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TblBruger", dbOpenSnapshot)

    rs.FindFirst "[Initialer]='" & Login & "' AND [Password]='" & password & "'"
    If rs.NoMatch Then
        CheckBruger = False
    Else
        CheckBruger = True
    End If

    rs.Close
    Exit Function

CheckBruger_Error:
MsgBox Error$
Resume 'Exit Function
End Function

det er i find first den stopper

Hej Maria Louise,

Jeg har sendt Db'erne tilbage.
I den aktuelle kode skal første linie rettes til dette:
Dim db As Database, rs As DAO.Recordset

Denne ændring skyldes at du BÅDE har en referene til DAO og ADO.