レコードセットのループ処理でエラー・・・

質問

簡単なことだと思うのですが、解決できなくこまっております。お助けください。

以下のコーディングで、データの取得は出来ているのですが、「Do Until rs1.EOF」でエラーとなります。

SOURCE-----------------------------------------

sql = "Select No from t01"
Recordset.Open sql, dbc, 3

If rs1.EOF Then
Response.Write "データナシ<BR>"　←表示されません。
else
Do Until rs1.EOF ←この行でエラーとなります。
Response.Write "No=" & rs1("No").Value
rs1.MoveNext
Loop
end if

Error--------------------------------------------
ADODB.Field (0x80020009)
BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。

因みに、Do Untilを使用せず
　Response.Write "No=" & rs1("No").Value
　rs1.MoveNext
　Response.Write "No=" & rs1("No").Value
と記述すると正常にデータが表示されます。

「Do Until rs1.EOF」で発生するエラーの回避方法を御教示願います。

回答No.1

BLUEPIXY

rs1.MoveFirst
Do Until rs1.EOF
にしてみるとか