se me cambia de nombre la base de datos

[guillebomtrasmiti]

si lo he probado, y nada he leído esto pero no se adaptarlo a mi código;

Dim sDBPassword as String
Dim oDBEngine As DAO.DBEngine
Dim oDB As DAO.Database

sDBPassword = "Mypassword" 'database password
oDBEngine = oAccess.DBEngine
oDB = oDBEngine.OpenDatabase(Name:=sDBPath, _
Options:=False, _
ReadOnly:=False, _
Connect:=";PWD=" & sDBPassword)
oAccess.OpenCurrentDatabase(filepath:=sDBPath, _
Exclusive:=False)
oDB.Close()
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oDB)
oDB = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oDBEngine)
oDBEngine = Nothing


oDB.Close no cierra realmente la base de datos en Access, sino que tan sólo cierra la conexión DAO a la base de datos, realizada por medio del objeto DBEngine. Esta conexión deja de ser necesaria en cuanto se utiliza el método OpenCurrentDatabase. Observe el código que libera los objetos oDB y oDBEngine. Estos objetos deberán utilizarse para que Access pueda cerrarse correctamente una vez se haya completado el código.

Para obtener más información, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base: