Visual Basic - muy facil, pero...???

HOLA: Hice una aplicacion a la cual para ingresar requiere de un usuario y contraseña, pero el tema es que lo vuelco a una tabla de usuarios, y desde ahi chequea la clave (obvio que todos la pueden ver).
Como hago para que en esta tabla de access no se vea la clave del usuario o cargarla en otro lado.Me contaron de una tal Registry, pero no se del tema, a quien me ayude, GRACIAS!!!

Encripta la clave del usuario cuando la guardas en el campo, hay muchas librerías y métodos de encriptación.

HOLA CECILIA,TE AGRADECERIA SI ME ENVIAS UN EJEMPLO YA QUE NO LO TENGO CLARO. ES DE SUMA IMPORTANCIA.
GRACIAS POR TU TIEMPO.

Si pones la clave en un archivo INI privado, la cual no sea igual que la necesaria para acceder y luego la conviertes usando API cada vez, pues...
... lee lo que está en el INI
Public Sub leeINI()
Dim seccion, llave, valor, archivo
On Error GoTo sigue
archivo = RutaIni

seccion = "Control"
llave = "entr"
elPasw = GetINI(seccion, llave, valor, archivo)

GoTo sal
sigue:
MsgBox "No se encuentra el archivo"
sal:
End Sub

...transforma lo leido por la clave correcta que debe coincidir con lo introducido por el usuario.
Public Function extraeClave(extraerValor As String) As String
Dim antes$, ahora$, carac$, longitud, i%, h%
antes = extraerValor
ahora = ""
h = 11
longitud = Len(antes)
For i = 1 To longitud
carac = Mid(antes, i, 1)
ahora = ahora & Chr(Asc(carac) - h)
h = h - i
Next i
extraeClave = ahora
End Function

Para generar la clave usa esto:
Public Function generaClave(valorDado As String) As String
Dim antes$, ahora$, carac$, longitud, i%, h%
antes = valorDado
ahora = ""
longitud = Len(antes)
h = 11
For i = 1 To longitud
carac = Mid(antes, i, 1)
ahora = ahora & Chr(Asc(carac) + h)
h = h - i
Next i
generaClave = ahora
End Function

...y ahora lo escribes en el INI y no hay quién acierte la clave porque no coincide nunca con la real.

Public Sub escribeINI()
Dim seccion, llave, valor, archivo, res
On Error GoTo sigue
archivo = RutaIni

seccion = "Video"
llave = "inst"
valor = "Video CANTAMAÑANAS ©tecniCam2003"
res = WriteINI(seccion, llave, valor, archivo)

seccion = "Control"
llave = "entr"
valor = laClave
res = WriteINI(seccion, llave, valor, archivo)

GoTo sal
sigue:
MsgBox "No se encuentra el archivo"
sal:
End Sub

Puedes hacerlo de otra forma pero siempre cambiando la real por la simulada con un sistema de encriptación cualquiera que te inventes.

No debería dar estas soluciones porque, al final, vais a vender vosotros más programas que yo sin habéroslo "currado" y eso no debe ser así.

Pero en fin, aún me quedan muchos más ases en la manga y...