Recordset

取得

レコードセット.Open Source:=sql, ActiveConnection:=conn

　件数取得

レコードセット.Open Source:=sql, ActiveConnection:=conn, CursorType:=adOpenStatic, LockType:=adLockReadOnly

値

レコードセット.Fields("列名").Value

レコードセット!列名.Value

ループ

Do Until レコードセット.EOF
    処理

    レコードセット.MoveNext
Loop

結果をセルに貼り付け

セル.CopyFromRecordset レコードセット

件数

レコードセット.RecordCount

CursorTypeをadOpenStaticにしておく