关于连接句柄有关问题

求助：关于连接句柄问题
各位大侠：
  现在是这样的情况，打包好的程序已经成功安装在部分机器上且运行正常。但个别机器安装成功后，无法运行，报“无法获得连接句柄，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客户端也设置了。

恳求各位大侠啊，到底是怎么回事啊

[解决办法]
这个跟程序没有关系的。是部分的电脑有问题，之前也遇到过这样的情况，不管怎么设置还是不行，硬是装了系统才可以的。