Abrir BD Access

Para abrir una base de datos en modo exclusivo o compartido, utiliza el método OpenDatabase para abrir la base de datos, especificando un valor True o False (predeterminado) respectivamente para el argumento Options. Ejemplo:
Public Function OpenDatabaseSure( _
db As Database, _
DBFile As String, _
Exclusive As Boolean, _
ReadOnly As Boolean _
) As Boolean
On Error GoTo OpenDatabaseSureErr
Set db = OpenDatabase(DBFile, Exclusive, ReadOnly)
OpenDatabaseSure = True
Exit Function
OpenDatabaseSureErr:
MsgBox "No puede abrir la Base de Datos " + DBFile +vbCrLf+vbCrLf+ _
"Mensaje de sistema:" + vbCrLf + Error$
OpenDatabaseSure = False
'//Posibles mensajes:
'3033: Sin permiso
'3343: Base de Datos corrupta
'3044: Trayectoria no válida
'3024: Archivo no encontrado
'...
End Function