VB6与SQL Server交互时没有响应

Question

我没有VB6的经验，当我运行包含此代码的应用程序时遇到错误：

 Data9.RecordSource = "select * from zag_d where tip=" & tip
 Data9.Refresh

 Data1.RecordSource = "Select distinct god,broj,partner,interno from zag_d where tip=" & tip
 Data1.Refresh

我正在从VB6运行的VB6和应用程序“没有响应”。我该怎么调试呢？这是VB6第一次没有给我任何调试信息，它只是停止工作。