Hola, gracias de antemano por leer este post. Tengo el siguiente problema. Trato de crear una conexión a una base de datos Access con contraseña. El código es el siguiente:

Dim Conexion As New Connection

Ruta = App.Path & "\BASEDATOS\OPSEP\ProgramaOPSEP_2000.mdb"

' Establecemos la conexión
With Conexion
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Ruta
    .Mode = adModeReadWrite
    .Open , , "Password=ellichal"
End With

El mensaje de error que me da es el siguiente:

<<No se puede iniciar la aplcación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario>>

He de decir que el fichero Access no está siendo utilizado. Supongo que mi error es de sintáxis, pero no consigo dar con el.
Bueno saludos al personal y si alguien sabe donde está el error, pues le estaría muy agradecido si me ayuda.