debug mode stuck..

Sub App_Start
con.New1
cmd.New1("", con.Value)

Form1.Show
End Sub

Sub Form1_Show
Con.Open("Data Source = " & AppPath & "\notexistfilename.sl3")
cmd.CommandText = "select * from xxxxx order by yyyyy"
cmd.ExecuteTable("table1",0)
End Sub

I found this by accident.. when you type the not exist file name to open, an error message will show up and ask you to continue or not.
If you ask no, it will be in debug mode forever. Stop function is useless. The only way is quit..

But this only happen if the codes are placed under : Sub Form1_Show

Is this bug or not?

It's a bug.
Apparently, it only happens with errors that happen in the main form show event.

Yes, Erel. You're right. It happens to all of error at the main form show.

I've tried another code, and try to make it error at main form show event. The result is always stuck at debug mode.

Thanks Erel.