my Program Show dialog is DebugMy Application.exe

If I write code :

for m = 0 to Ubound(strCASE_TYPE)
rs = DBConnect(sqlSTR)
if rs <> nil then
rs.MoveFirst
do until rs.EOF
if strCASE_TYPE(m) = rs.field(“CASE_TYPE”).StringValue then
msgbox strCASE_TYPE(m) + " : " + rs.field(“CASE_TYPE”).stringValue
end if
rs.moveNext
loop
end if

next

Sometimes my Program Show dialog is DebugMy Application.exe
mwessage is " DebugMy Application.exe has stopped working

a problem caused the program to stop working correctly.
Please close the program"

I do not know what it is?

Sounds like windows thinks your app locked up. If your method takes a long time, you might consider using a thread.