Hvorfor virker det ikke

Hej jeg er ved at få grå hår af access, jeg har hente en kode fra en fyr på nette og det virker også helt ok.

men så ville jeg selv lave en ting. men der kan jeg ikke får den kode til at virker.

Den kode der virker fint fra en person på nette.
------
  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
-----------------------
Men når jeg så kopier den brokker den sig over
Dim db As Database, rs As Recordset
har prøve at rette den til
dim db as New ADODb.Recordset
men så virker rasten ikke.

Hvad er der galt ?