在VB6中访问SQL数据库时运行时错误'3709'

Question

我有一个有人写过的VB6应用程序，它不适用于只有一些尝试使用它的用户。

这是运行的代码，它返回错误：

 On Error GOTO error_handler
 ..
 Set db = New ADODB.Connection
 db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=****;Password=****; Initial Catalog=***;Data Source=****,1433"
 error_handler:
 If db.Error.count then
 strDBErrors = "No access to Main Database."
 For Each err In db.errors
  strDBErrors = strDBErrors & vbCrLf & err.Description
 Next
 MsgBox strDBErrors

此代码运行后，我收到两个错误框。一个表示运行时错误3709，另一个表示两行：其中一行是我的自定义错误消息，第二行如果：“登录失败，用户用户”。

这仅发生在安装了此程序的特定计算机上的一个用户。在任何其他用户的计算机上都不会发生这种情况。 我尝试在该计算机上与该用户重新安装该程序，但它无效。

有什么想法吗？

Answer 1

不太确定问题是什么， 但我刚刚删除了Active Directory上的用户并再次创建它，并且它有效。 但用户不是任何拒绝组的成员。