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?