problem with ADODB.Field error '80020009'

[phillips]

i had problem when i updated my record. and it show error

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/bgempiece/Admin/updatestudents.asp, line 0

code:

Dim objConn, flag
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= Constr

objConn.open
Dim objRs
set objRs = server.CreateObject("ADODB.Recordset")

objRs.open "infousers", objConn, adOpenDynamic, adLockOptimistic, adCmdTableDirect

if request.Form("Subupstd")= "Submit" then
do while not objRs.eof
if( objRs.Fields("Account")= request.Form("oldaccount")) then
with objRs
.Fields("Account")= request.Form("Account")
.Fields("Password")=request.Form("Password")
.Fields("Username")=request.Form("Name")
.Fields("Address") = request.Form("address")
.Fields("Country") = request.Form("Country")
if request.Form("phone") <> "" then
.Fields("HomePhone") = request.Form("phone")
end if
.Fields("Birthday") = request.Form("birthday")

if(request.Form("notes") <> "") then
.Fields("Notes") = request.Form("notes")
end if
.update
end with
exit do
end if

objRs.MoveNext

loop
response.Write("Update successfully!")

end if

help me plzzz !!!!