Hi alle miteinander!

Ich möchte bei einer Zeiterfassungsdatenbank über ein Login-Form Username und Password aus einer Tabelle "Logindata" mit einem ADODB Recordset checken und danach ein anderes Form öffnen je nachdem ob der Login erfolgreich war oder nicht. Ich habe leider noch nicht viel Erfahrung im VBA. Ich habe einerseits ein Class Module gemacht, in welchem ich das Recordset erstellt habe:

Public Function dbOpenRecordset(oConn As ADODB.Connection, _
  ByVal sSQL As String, _
  Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
  Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
  Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
  As ADODB.Recordset
 
  Set dbOpenRecordset = New ADODB.Recordset
  With dbOpenRecordset
    .CursorLocation = CursorLocation
    .Open sSQL, oConn, CursorType, LockType
  End With
End Function

_________________________________

Bei Knopfdruck auf einen "Loginbutton" im Form "Login-Window" soll dann dieses Recordset geöffnet und mit den Daten welche in die Textboxen "Username" und "Password" eingegeben werden, checken. Hier der Code dazu.

Private Sub Loginbutton_Click(Username As String, Password As String)
 
    Dim oRs As ADODB.Recordset
    Set oRs = dbOpenRecordset(oConn, "Select Username, Password From Logindata")

    If Me!Username = oRs.Recordset.Fields("Username").Value And Me!Password = oRs.Recordset.Fields("Password").Value Then
        DoCmd.OpenForm "Registration"
    Else
        DoCmd.OpenForm "Registration_Failed"
    End If
End Sub

_____________________________

Ich erhalte leider jedoch immer folgende Fehlermeldung:

"Procedure declaration does not match description of event or procedure having the same name"

Ich weiß leider nicht, was dies bedeutet. Ich hoffe ihr könnt mir helfen.

mfg Sketch