求助：关于连接句柄问题

各位大侠：
    现在是这样的情况，打包好的程序已经成功安装在部分机器上且运行正常。但个别机器安装成功后，无法运行，报“无法获得连接句柄，ODBC api执行错误”--看红字部分。我查了下，具体程序是：
Private Sub Connect()
 Dim TmpStat As Long
 
 If IsConnect = True Then
    Exit Sub
 End If
 
 If SQLAllocEnv(Henv) Then
    MsgBox "无法初始化ODBC环境！", , "ODBC API执行错误"
 End If
 
 If SQLAllocConnect(Henv, Hdbc) Then
    MsgBox "无法连接ODBC！", , "ODBC API执行错误"
 End If
 
 TmpStat = SQLConnect(Hdbc, DSN, Len(DSN), DB_USER_NAME, Lench(DB_USER_NAME), DB_PASSWORD, Len(DB_PASSWORD))
 
 If TmpStat <> SQL_SUCCESS And TmpStat <> SQL_SUCCESS_WITH_INFO Then
    MsgBox "无法获得连接句柄！", , "ODBC API执行错误"    IsConnect = True
    Disconnect
    End
 End If
 
 IsConnect = True
 
End Sub从上面程序看，连接ODBC成功，只是无法获得连接句柄，不知道怎么回事。另外，我在这台机器上用控制面板里的ODBC连接也成功了，测试通讯成功；CLICONFG客户端也设置了。恳求各位大侠啊，到底是怎么回事啊