Error en ADODB

Manuel Acosta Aceves
04 de Abril del 2008
Estoy manejando ADODB pero a veces me marca los siguiente
Error '-2147467259(8000405)' en tiempo de ejecucion :
Error no especificado

Me lo marca cuando intenta abrir la conexion

Private Sub Form_Load()


Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "PEPE.mdb" + ";Persist Security Info=False"
MiConexion.Open ' <--- Aqui me marca error

MisRegistros.Open "Clientes", MiConexion, adOpenDynamic, adLockOptimistic

Me marca este este problema en momentos de repente trabaja bien y de repente marca este error, algiuen sabe porque?

Bartolom
04 de Abril del 2008
Revisa que en el proyecto tengas la referencia Microsoft Active X Data Objects Library (el número de versión depende de las actualizaciones de tu VB). Una vez hecha esta referencia, basta con que crees un objeto conecction, y VB lo asociará a un obejto ADO.

En tu caso, debería ser:

Public Miconexion As Connection
Public MisRegistros As Recordset

Set MiConexion = New Connection
Set MisRegistros = New Recordset

With MiConexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = " + App.Path & "PEPE.mdb"
End With
MiConexion.Open

With MisRegistros
.Source= "Acá va tu instrucción SQL"
.ActiveConnection = MiConexion
.CursorType = AdOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
MisRegistros.Open Options:=adCmdText


Saludos!
Bartolom
Chile