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

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

以下のコーディングで、データの取得は出来ているのですが、「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 回答日時： 2006/05/25 19:05

rs1.MoveFirst

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