[belotrei]

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?