vb编写的程序连接局域网的数据库时,为什么容易出现"没有响应"的问题?

Question

vb编写的程序连接局域网的数据库时,为什么容易出现"没有响应"的问题?
而且在任务管理器里也无法强制关闭程序,并且在进程里会一直出现此程序的进程,且注销后依然存在,进程显示此程序的内存使用为9600k,cpu为00,重起后就没有了.怎么解决?

Answer 1

连接局域网的数据库,是什么数据库？SQL Server ？

Answer 2

是sqlserver2000
  系统是windows2003

Answer 3

模块的代码如下：
Public fMainForm As frmMainPublic UserName As String
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
           End
    End If
    Unload fLogin
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub
Public Function ConnectString() _
   As String
   ConnectString = "FileDSN=npsinfo.dsn;UID=sa;PWD=12345678"
   
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
     
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End FunctionPublic Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function

Answer 4

FileDSN=npsinfo.dsn ,odbc数据源!!!!!!!!!!!!!!!!!!!!!已经建立！在2000系统上运行一点问题都没有！

Answer 5

在ExecuteSQL里设置一下这个试试
 cnn.ConnectionTimeout=5

Answer 6

FileDSN=npsinfo.dsn ,odbc数据源!!!!!!!!!!!!!!!!!!!!!已经建立！在2000系统上运行一点问题都没有
那你现在在什么机器上运行？如果是98，那就是2000的权限设置不对

Answer 7

happywqw(键盘跳蚤) 
 
  会不会是网络安全级别设置过高，或者是防火墙什么的原因？我也用2003的操作系统，常常出现网页无法连接的问题，修改安全级别就好了。
 ---------------------------------------------------------------------------------
 可能是这个问题，我用的诺顿防火墙