Mostra la query, altrimenti cosa possiamo dirti?

Un consiglio: usa le costanti mnemoniche per i valori anziché i numeri.
Le hanno fatte apposta.
Eviterai così di commettere errori (CursorType = 0 non esiste)
Per cui, invece di scrivere così:

codice:
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 3
è più comprensibile leggere se scritto così:

codice:
rs.CursorType = adOpenStatic 
rs.CursorLocation = adUseClient 
rs.LockType = adLockOptimistic

Ciao