Devi Dichiarare objRS come ADODB.RecordSet se usi ADO.
dovrebbe essere lo stesso per oggetti Access.
codice:
' Dim objRS As Integer
Dim objRS As New ADODB.RecordSet  
' ---------------------------------------------------
' oppure,  (o l'uno (sopra) o l'altro (sotto))
' ---------------------------------------------------
Dim objRS As New RecordSet