Errore di runtime '3709' durante l'accesso a database SQL in VB6

Question

Ho un'applicazione VB6 che qualcuno ha scritto, che non funziona solo per alcuni utenti che tentano di utilizzarlo.

Questo è il codice in esecuzione che restituisce un errore:

 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

Dopo questo esegue il codice, ottengo due scatole di errore. Uno in cui si afferma un errore di runtime 3709, e l'altro che ha due linee: uno di esso è il mio messaggio di errore, e il secondo se questo: "Accesso non riuscito per l'utente l'utente "

Ciò accade soltanto ad un utente su un computer specifico su cui è installato il programma. Non accade su qualsiasi altro computer con qualsiasi altro utente. Ho provato a reinstallare il programma con l'utente su quel computer, ma non ha funzionato.

Tutte le idee?

Answer 1

Non sono sicuro quale fosse il problema, ma ho appena cancellato l'utente su Active Directory e ha creato di nuovo, e ha funzionato. L'utente non era membro di alcun negare gruppi però.