Ajuda com criptografia

Para melhorar o nível de segurança das informações gravadas, qual a rotina necessária em VBA, para que ao clicar num botao, que todos os campos sejam criptografados e ao clicar em outro sejam descriptografados.
Sei que existem alguns exemplos, mas nao consigo adaptar com esse codigo abaixo.
Caso possuam algo mais forte agradeceria.

Alguém poderia dar um help ou um exemplo

Form

Option Compare Database

Private Sub cmdCrypt_Click()
   Me.Nome.Value = Crypt(Trim(Text.Value))
   Me.Data.Value = Crypt(Trim(Text.Value))
   Me.endereco.Value = Crypt(Trim(Text.Value))
End Sub

Private Sub cmdDecrypt_Click()
   Me.Nome.Value = Decrypt(Trim(Nome.Value))
   Me.Data.Value = Decrypt(Trim(Data.Value))
   Me.endereco.Value = Decrypt(Trim(endereco.Value))
End Sub


Modulo

Option Compare Database

'Função para criptografar senha de usuário
Public Function Crypt(Text As String) As String
Dim strTempChar As String
Dim I As Integer

   For I = 1 To Len(Text)
       If Asc(Mid$(Text, I, 1)) < 128 Then
          strTempChar = Asc(Mid$(Text, I, 1)) + 128
       ElseIf Asc(Mid$(Text, I, 1)) > 80 Then
          strTempChar = Asc(Mid$(Text, I, 1)) - 128
       End If
       
       Mid$(Text, I, 1) = Chr(strTempChar)
   Next I

   Crypt = Trim(Text)

End Function

'Função para descriptografar senha de usuário
Public Function Decrypt(Text As String) As String

Dim strTempChar As Variant
Dim I As Integer

   For I = 1 To Len(Text)
       If Asc(Mid$(Text, I, 1)) > 128 Then
          strTempChar = Asc(Mid$(Text, I, 1)) - 128
       ElseIf Asc(Mid$(Text, I, 1)) > 80 Then
          strTempChar = Asc(Mid$(Text, I, 1)) + 128
       End If
       
       Mid$(Text, I, 1) = Chr(Abs(strTempChar))
   Next I

   Decrypt = Text

End Function


exemplo anexado

obrigado

Consegui os textos. Mas campo data nao foi. Em anexo.
FormTabela1 as mudanças.

Olá Mylton,

A criptografia de dados em sistema é mais utilizada em dados de login e senha, arquivos .INI (arquivos também usados para conexão em bd) e etc.
Para criptografar os dados é necessário que os campos sejam do tipo Texto. Campos numéricos, data, data/hora, moeda e etc não aceitam caracteres criptografados.
Não é comum criptografar dados das tabelas, pois será necessário toda vez descriptografá-los na geração de relatórios, consultas e etc.
Se você possui senha de banco, senha de código, bloqueio de tecla SHIFT e etc, já é o suficiente.

Espero ter ajudado.

É isso
[]'s
FIM

Alexandre.
Boa noite.
Estou tentando desenvolver uma forma de proteger alguns campos de uma tabela só.
Não irei utilizar em nenhuma necessidade do exposto.
Penso em evitar que vejam informações do sistema do PC.