two loop in database connext

General
1

Hello I’m write code connext to Mysql

dim rs as recordset

rs = dbConnect(strSQL)
if rs <> nil then

rs.movefirst
do until rs.EOF

rs.moveNext
loop

rs.movefirst
do until rs.EOF

rs.moveNext
loop

end if

then I 'm run myProject but Error :

msg is “DebugMy Application.exe has stopped working”

How to ? thank!!!

2

MySQL does not support MoveFirst. The recordset is use once and throw away. Either run the query again, or save the information in some format that you can run through it again.