Prova così:

....
rs.Open StrSQL, Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
do while not rs.eof
numero = rs!nomecampo ' numero acquista il valore di rs!nomecampo
insetrisci nel datagrid
rs.movenext
loop
....