La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  979 - BASES DE DATOS CON CLAVE
Autor:  César Daniel
para Visual Basic 5 o posterior

Tengo un pequeño problemite. Quiero implementar seguridad en uno de los programas que estoy haciendo, y para ello necesito que la base de datos (Access) tenga clave, ya que esta será compartida en red.
Desde Visual Basic 5, es muy facil abrir las bases de datos access, pero si le pongo clave a la base de datos no la puedo abrir. Alguien podría indicarme como puedo hacer esto, le estare muy agradesido.

  Respuesta:  cesar Gerez
Esto es para todos los que comienzan a programar y se encuentran con los problemas más básicos sobre este tema. Aquí un ejemplo:
'Pegar en Declaraciones Generales
Dim base As Database
Dim rtabla As Recordset
Private Sub Form_Load()
'Ejemplo de apertura de una tabla en una base con contraseña
'crear una base con nombre miBase.mdb con una tabla llamada tabla1
'grabar algún dato en el primer registro del primer campo creado
'cerrar la base con una contraseña yo123
'guardar la base en la misma carpeta en que se ejecuta este proyecto
'Abrir un nuevo proyecto,la barra de herramientas, menú proyecto elejir
'referencias. Seleccionar Microsoft DAO 3.51 Object Library (para access 97)
'o Microsoft DAO 3.6 Object Library (para access 2000)
Set base = OpenDatabase(App.Path + "\miBase.mdb", False, True, ";pwd=yo123")
Set rtabla = base.OpenRecordset("SELECT *" _
& "FROM tabla1;")
ver = rtabla.Fields(0)
MsgBox "1º registro " & ver
base.Close
End Sub
  Respuesta:  Juan Honorio Palacini Her
BIEN AMIGO, NO VOY A ANDAR CON RODEOS AHI TE VA EL CODIGO
DIM BDATOS AS DATABASE

SET BDATOS = DBENGINE.OPENDATABASE("RUTA DE LA BASE DE DATOS\BASE DE DATOS.MDB", False, False, ";Pwd=CONTRASEÑA DE LA BASE DE DATOS")

ESO ES TODO, CUALQUIER DUDA MANDAME UN EMAIL.