Mira a ver si esto te sirve, lo tengo en cuenta pero no he hecho una BD con clave, es algo que lei en otro foro y que simplemente te pongo aquí:
Perteneciente a
AMB Software Vamos a suponer que la base de datos se llama Bd1.mdb.
Genere una contraseña para la nueva base de datos creada.
Para este ejemplo, he creado la contraseña "Amb".
Tenga cuidado con las mayúsculas y minúsculas, ya que Access hace distinción entre ellas.
Se ha dispuesto para este ejemplo las siguientes propiedades de tabla:
Nombre de la tabla: Tabla1
Nombre del Campo Tipo de datos Tamaño:
Nombre Carácter 50
Apellido1 Carácter 50
Apellido2 Carácter 50
Edad Numérico Entero
Ejemplo:
Añada 4 cajas de texto y un control Data al formulario, el cual por defecto llevará el nombre de Data1.
Cambie la propiedad DataSource de todas las cajas de texto a Data1.
A continuación escriba el siguiente código.
Private Sub Form_Load()
Data1.DatabaseName = "C:TempBd1.mdb"
Data1.RecordSource = "Tabla1"
Data1.Connect = ";pwd=Amb"
Text1.DataField = "Nombre"
Text2.DataField = "Apellido1"
Text3.DataField = "Apellido1"
Text4.DataField = "Edad"
End Sub
Otra opción
Dim strconnect As String
strconnect = ";database=ruta donde esta base de datos " & _
";pwd=" & "clave"
Set db = OpenDatabase("", True, False, strconnect)
En todo caso esperemos que aparezcan soluciones más certeras.
Saludos.
