Visual Basic - Error al abrir DB mas de 1 vez

Hola a todos:
Estoy programando en VBA, y al abrir una base de datos varias veces me da el siguiente error:

The database has been placed in a state by user admin on XXX that prevents it from being opened or locked

He leido en internet que se solucionaba sin cerrar la base de datos, pero no, sigue apareciendo el mismo error.

SOS!

Primero, no sabes que hay un VBA en español y pone los mensajes en español? (valga la redundancia)

Segundo has leido en internet que se solucionaba sin cerrar la base de datos? pues no, o leiste mal o el que te informo no tenia ni idea de lo que te estaba informando.

Despues de ver (leer) tanta incultura, o falta de informacion me voy a dormir la siesta y cuando me despierte es posible que conteste a alguien (si merece la pena)

Claro que se que hay una versión en español, pero me defiendo igual de bien en español que en inglés.

Incultura? Claro, pero "el culto" de turno no pone ni un acento!!!!!

Hola.

Podrías pegar la rutina como estas abriendo tu base de datos y de que forma estas enlazando las consultas?

Saludos.

Hola, esta es la rutina que utilizado,

Set bd = OpenDatabase(CurrentProject.Path & "\Findes.mdb")
Set rst = bd.OpenRecordset("DiasTrabajados")

si solo abro una vez la aplicacion, todo va bien, pero si voy al modo diseño para hacer alguna modificacion, y vuelvo a ejecutarlo se vuelven a ejecutar esas dos lineas y me da el error del que hablaba.

Hola,

No veo donde pueda estar el error, me llama la atencíón currentproject.path no será que en algun momento ese currentproject cambia su ruta?

Bueno use
Microsoft ADO 3.51 Object Library

el código en Form_Load con debbug

Set bd = OpenDatabase(App.Path & "\prueba.mdb")
Set rst = bd.OpenRecordset("test")
If rst.RecordCount > 0 Then
MsgBox "Hay " & rst.RecordCount & " registros"
End If
rst.Close
Set rst = bd.OpenRecordset("test1")
If rst.RecordCount > 0 Then
MsgBox "Hay " & rst.RecordCount & " registros"
End If
rst.Close
bd.Close
Set bd = OpenDatabase(App.Path & "\prueba.mdb")
Set rst = bd.OpenRecordset("test")
If rst.RecordCount > 0 Then
MsgBox "Hay " & rst.RecordCount & " registros"
End If
rst.Close
Set rst = bd.OpenRecordset("test1")
If rst.RecordCount > 0 Then
MsgBox "Hay " & rst.RecordCount & " registros"
End If
rst.Close
bd.Close

La BD pruebas tiene 5 tablas test1, test2.. etc, no me dió el problema, por eso creo que es el objeto currentproject el que podria dar problemas, no sé con que referencía cargas ese objeto por eso no pude probarlo y lo cambie por app.path.

Saludos.

Yo antes tb lo utilizaba asi, pero me daba un error de "Variable not defined" en App y encontré por la red que para VBA se utilizaba currentproject.path.

Tu no lo defines?

Hola.

Perdón no debí responder, no tenía la menor idea que existía eso de Visual Basic For Applications.

Probé todo eso en VB6.

Aún así, leí en wikipedia algo:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM tblMain")

Do Until rs.EOF
MsgBox rs!FieldName
rs.MoveNext
Loop

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

Ahora no sé si servirá.
Saludos y descargando VBA. =).

Muchas gracias. Ya te contaré si lo resuelvo o si no.

Pues si, pues si. Muy buena. Funciona

Muchas gracias again