Access - PARA EXPERTOS

La funcion que mas abajo relaciono sirve para vinculat una tabla de una BD.
Esta BD tiene una clave (CLAVE1) y cuando trato de vincularla con esta función me da error de la clave.
¿Hay alguna forma de indicarle en esta funcion la PWD?
Gracias y saludos


Function VACCESOS() As Boolean

Dim ActualDB As Database
Dim ETabla As TableDef
Dim ModuloServidorFile As String
Dim Contador As Integer

ModuloServidorFile = OpenFileAccesos()

If ModuloServidorFile <> "" Then
VACCESOS = True
Set ActualDB = CurrentDb()
For Contador = 0 To ActualDB.TableDefs.Count - 1
Set ETabla = ActualDB.TableDefs(Contador)
If ETabla.Connect <> "" And Mid(ETabla.Connect, 43, 11) = "ACCESOS.MDB" Then
ETabla.Connect = ";DATABASE=" & ModuloServidorFile
Err = 0
ETabla.RefreshLink
If Err <> 0 Then
MsgBox "La conexión con el Módulo Servidor ha sido insatisfactoria." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "'" & ModuloServidorFile & "' no contiene la tabla '" & ETabla.SourceTableName & "' requerida por la aplicación.", vbCritical + vbOKOnly, "Conexión con el Servidor"
VACCESOS = False
Exit For
End If
End If
Next Contador
Else
MsgBox "La conexión con el Módulo Servidor ha sido cancelada.", vbCritical + vbOKOnly, "Conexión con el Servidor"
VACCESOS = False
End If

End Function%

No lo he probado y no estoy seguro pero puedes agregar a la propiedad Connect el password, asi :

ETabla.Connect = ";DATABASE=" & ModuloServidorFile & ";PWD=password;"

Prueba y me dices