>>541

Dim cn as new adodb.connection
Dim rs as New adodb.recordset
dim cmd as new adodb.command

With cmd
.ActiveConnection = cn
.CommandText = "SELECT * FROM hoge"
rs = .Execute(lRow)
End with

としたらlRowに1が返って来てるのに
rs.eof = Trueになるんです。
hogeの中は１レコードしかありません。