Error de ejecución '3709' al acceder a la base de datos SQL en VB6

Question

Tengo una aplicación de Visual Basic 6, que alguien escribió, que no funciona sólo para algunos usuarios que intentan utilizarlo.

Este es el código de funcionamiento que devuelve un error:

 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

Después se ejecuta este código, consigo dos cajas de error. Uno que establece un error de ejecución 3709, y la otra que tiene dos líneas: una de ella es mi mensaje de error personalizado, y el segundo si esto: "Inicio de sesión falló para el usuario el usuario "

Esto sólo ocurre a un usuario en un equipo específico en el que está instalado este programa. Esto no sucede en cualquier otro ordenador con cualquier otro usuario. He intentado volver a instalar el programa con ese usuario en ese equipo, pero no funcionó.

¿Alguna idea?

Answer 1

No estoy seguro de cuál era el problema, pero simplemente borrado el usuario en Active Directory y creado de nuevo, y funcionó. El usuario no era un miembro de cualquier negar grupos aunque.