Laufzeitfehler ‚3709‘, während in VB6 SQL-Datenbank zugreifen

Question

Ich habe eine VB6-Anwendung, die jemand schrieb, die Arbeit nicht nur für einige Benutzer, die versuchen, es zu benutzen.

Dies ist der Code läuft, die einen Fehler zurückgibt:

 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

Nachdem dieser Code ausgeführt wird, erhalte ich zwei Schachteln Fehler. Eine, die einen Laufzeitfehler besagt, 3709, und die andere, die zwei Linien: eine davon ist meine benutzerdefinierte Fehlermeldung, und die zweite, wenn dies: „Anmeldung für Benutzer fehlgeschlagen der Benutzer “

Dies geschieht nur für einen Benutzer auf einem bestimmten Computer, auf dem das Programm installiert ist. Es geschieht nicht auf einem anderen Computer mit einem anderen Benutzer. Ich habe versucht, auf dem Computer das Programm mit diesem Benutzer neu zu installieren, aber es hat nicht funktioniert.

Irgendwelche Ideen?

Answer 1

Nicht ganz sicher, was das Problem war, aber ich gelöscht nur den Benutzer auf Active Directory und erneut erstellt, und es funktionierte. Der Benutzer war kein Mitglied einer leugnen Gruppen though.