レコードセットがEOFにならない

[BEKEI]

ACCESS97を使用してます。

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset("テーブル１", dbOpenDynaset)
Stop
I = 1
RS.MoveFirst
Do Until RS.EOF
RS.Edit
RS.Fields("フィールド１") = I
RS.Update
I = I + 1
RS.MoveNext
Loop

上記の内容でなぜかRSがEOFにならないのでループから抜け出せません。
分る方教えてください。
よろしくお願いします。

[BEKEI]

自己レス

Post by BEKEI
Set RS = DB.OpenRecordset("テーブル１", dbOpenDynaset)

をSet RS = DB.OpenRecordset("テーブル１", dbOpenTable)
にしたら直りました。

[Miyahn]

# $B2r7h:Q$_$N$h$&$G$9$,!";29M$^$G!#(B

"BEKEI" $B$5$s$O!"(B2006$BG/(B2$B7n(B10$BF|(B 11:55 $B$N(B
$B!V%l%3!<%I%;%C%H$,(BEOF$B$K$J$i$J$$!W(B $B$G!"$3$&=q$+$l$^$7$?!#(B

Post by BEKEI
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("$B%F!<%V%k#1(B", dbOpenDynaset)
Stop
I = 1
RS.MoveFirst
Do Until RS.EOF
RS.Edit
RS.Fields("$B%U%#!<%k%I#1(B") = I
RS.Update
I = I + 1
RS.MoveNext
Loop
$B>e5-$NFbMF$G$J$<$+(BRS$B$,(BEOF$B$K$J$i$J$$$N$G%k!<%W$+$iH4$1=P$;$^$;$s!#(B

$B$3$A$i$N%5%]!<%H5;=Q>pJs$r$I$&$>!#(B

[AC95] $B%$%s%G%C%/%9%U%#!<%k%I$K(BEdit/Update$B%a%=%C%I<B9T;~$NF0:n(B
$BJ8=qHV9f(B: 404968

$B%*!<%H%J%s%P!<7?%U%#!<%k%I$K$7$F$*$$$F!"I,MW$J;~$K$O2<5-$N(B
$B%5%]!<%H5;=Q>pJs$NJ}K!$rMxMQ$9$kJ}$,8-L@$H;W$$$^$9$,!#(B

[AC97] $B%*!<%H%J%s%P!<7?$N%G!<%?$rO"B3HV9f$K:***@_Dj$9$kJ}K!(B
$BJ8=qHV9f(B: 404069