Run-time error '3021'

[El_Dindonnier]

EDIT : When debug i have :

Code:

RS.MoveFirst

in : Public Function GetRecordCountByFKey(dbTable As String) As Long