Visual Basic - Encriptar campos

Estimado amigos:
La pregunta que les hago ahora es: quiero guardar los datos ingresados en una MDB encriptados.
Por ejemplo llenas una Caja de Texto con un nombre y al ejecutar el botón GUARDAR que estos datos se guarden encriptados para que no puedan ser leídos por alguien que mire el archivo con Access.
También hay que desencriptar estos campos cuando quiera hacer un reporte o ver los datos en un Data Grid.
Yo quisiera hacer una encriptación de datos no muy sofisticada, que sea algo simple, solamente que no puedan ser leídos los datos por cualquiera que sepa abrir un archivo con Access.
Desde yá, muchas gracias por todo.
Saludos.
Horacio.

La verdad no se si se puede hacer lo que tú necesitas, pero, una solución puede ser: Ponerle una contraseña a la Base de Datos.

Defines la contraseña en Access y en visual basic al momento de activar el Data Control ó lo que este utilizando para enlazar la Base de Datos le especificas la contraseña.

En Visual Basic al crear un nuevo formulario viene un Wizard para crear un formulario en el cual te pide el password. En la versión en español se llama "Cuadro de Diálogo Inicio de Sesión".

El siguiente código está completo, analizalo y ejecutalo:

Formulario de Password :

Option Declaration
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'Si se eligio el botón de Cancelar
LoginSucceeded = False
Me.Hide
End
End Sub

Private Sub cmdOK_Click()
On Error GoTo ErrorClave
'Revizar Password.
Set wrkEspacio = DBEngine.Workspaces(0)
Set dbBase = wrkEspacio.OpenDatabase("C:\Base\Libros.mdb", False, False, ";pwd=" & txtClave.Text & "")
Set recRegistro = dbBase.OpenRecordset("Select [Libro].* from [Libro]")
recRegistro.LockEdits = False
LoginSucceeded = True
Unload Me
frmMenuPpal.Show
Exit Sub

ErrorClave:
'En caso de no poner la clave correcta. El Num de error :3031 el ser incorrecta la clave
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtClave.SetFocus
SendKeys "{Home}+{End}"
Exit Sub