quizas te sirva esto:
en el Ms- Acces hay una opci?n de compactado de base de datos, prueba con eso, o derrepente quieres esto que te voy a adjuntar, lee el codigo  yo no lo hice lo decarge no se de donde , le he probado encripta a ver si te liga algo con este

a lo mejor te sirva y nos sirva a los que aqui participamos!!!

enjoy!!!                    

si te refieres a encriptar una base de datos de microsoft jet (el manejador que usa access y visual basic )
lo puedes hacer desde vb usando DAO

Debes usar el metodo CompactDatabase con un parametro especial que hace el cifrado de la base de datos

Para que se entienda mejor te comento que el motor microsoft jet(access) cuando borras un registro no disminuye el tama?o de la base de datos por ejemplo si tienes una bdatos con una tabla y esta tiene  10 registros de 100bytes cada uno, y usando cualquier forma borras 5 registros
la bdatos no disminuye su tama?o,sigue midiendo 1000 bytes (no me he explicado aun porque hace esto yo creo que es por que hace bajas logicas y un amigo dice que es porque los datos borrados los manda auna especie de papelera de reciclaje a la cual no se tiene acceso)

Para corregir esto microsoft se saco de la manga el metodo compactdatabase del objeto dao.
lo que hace compactdatabse es sacar una copia a la bdatos original y a la copia la reduce al tama?o real ademas de cifrarla(opcional).

Este seria un ejemplo de como funciona:

\'hay que hacer referencia a dao 3.51  en menu proyecto,referencias

private sub cmdcompactar_click()
on error resume next

Dim strCompactada as string
Dim strOriginal as string
Dim varEsenario as Variant
Dim intOpciones as integer
Dim varContrasena as Variant
\'parametros de Compactdatabase
  \'nombre original
    strOriginal ="C:nomina.mdb"
  \'nuevo nombre  
    strCompactada="C:nominaco.mdb"
  \'esenario(opcional)
    varEsenario = ""
  \'opciones (es aqui donde se pone el parametro dbencript)
    intOpciones=dbEncript
  \'contrase?a(cuando la bdatos original tiene contrase?a)
    varcontrasena = ""
DBengine.CompactDatabase  strOriginal,strCompactada,varesenario,intopciones,contrasena

\'checar si se compacto o no
if err then
msgbox "Error, No Se Compacto La Base De Datos"
else
msgbox "base de datos compactada y cifrada  :P"
end if
end sub