VB环境。

Question

我自己编的一个程序，给客户运行到这一句就出错了。客户要正常运行需要那些文件啊？
 If conn.State = adStateOpen Then conn.Close
    conn.CursorLocation = adUseClient
    conn.CommandTimeout = 0
    conn.Open Mid(Login.PropsString, a + 1, b - a - 1)
为什么啊？

Answer 1

可能是你引用的ADO版太高，给客户装一个新的ADO

Answer 2

那么你的Mid(Login.PropsString, a + 1, b - a - 1)
应该不符合连接字符串的要求，比如里面的变量用到了绝对路径，单步调试看看错误的描术是什么on error goto err:
If conn.State = adStateOpen Then conn.Close
    conn.CursorLocation = adUseClient
    conn.CommandTimeout = 0
    conn.Open Mid(Login.PropsString, a + 1, b - a - 1)exit sub
MsgBox err.Description

Answer 3

Mid(Login.PropsString, a + 1, b - a - 1)你跟踪看看是否是空值

Answer 4

数据库是远程连接 还是本地连接？ 远程连接的话要配置一下ODBC