codice:
Dim A as integer 

objRS.open strsql 
A = objRS("tuo campo")