Originariamente inviato da junx
codice:
Dim A as integer 

objRS.open strsql 
A = objRS("tuo campo")
o più generale (se hai n record):
codice:
Dim A as integer 
objRS.open strsql 
do while not objRS.EOF
    A = objRS("tuo campo")
    ...
    ...
    ...
    objRS.MoveNext
loop