Visual Basic - Encriptar Bases de Datos

!Urgente! Cómo se encripta una base de datos(Acces 2000) en Visual Basic 6.0?

Hola liliana

bueno solo tengo un codigo para encriptar los datos, despues guardarlos y cuendo los jales solo los mandas desencriptar, como veo que si sabes, te dire que podrias hacer dos funciones en un modulo, una que encripte y una que desencripte

Private Sub Form_Load()
Dim s As String
s = "Hola!"
'//Codifica
XORStringEncrypt s, "MiClave"
Show
Print "Codificado: "; s
'//Decodifica
XORStringEncrypt s, "MiClave"
Print "Decodificado: "; s
End Sub

Private Sub XORStringEncrypt(s As String, PassWord As String)
Dim n As Long
Dim i As Long
Dim Char As Long

n = Len(PassWord)
For i = 1 To Len(s)
Char = Asc(Mid$(PassWord, (i Mod n) - n * ((i Mod n) = 0), 1))
Mid$(s, i, 1) = Chr$(Asc(Mid$(s, i, 1)) Xor Char)
Next
End Sub

espero que te sirva por ahi pasame cosillas ¿no? por mail