在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上删除了用户，然后再次创建了它，并且它起作用了。不过，用户不是任何拒绝组的成员。