Visual Basic - GUARDAR CONTRASEÑAS ENCRIPTADAS PLEASE!!

Hola colegas, en esta oportunidad tengo un gran problema ya que realice mi aplicacìón en Visual Basic 6.0 con conexión a base de datos Sql Server, todas las operaciones las realiza perfectamente pero quisiera saber como puedo hacer para que al momento de guardar los datos de una contraseña se guarde encriptada de manera que el administrador si abre la tabla no pueda ver las contraseñas de los usuarios. Como puedo realizar dichos códigos? me imagino que tendre que codificarlo de alguna manera que lo grabe encriptado y luego lo lea y transforme esa información. Agradezco la ayuda que me puedan dar al respecto

Este código es viejo, pero últil:

Function EncriptarCadena(ByVal cadena As String, Byval clave as string) As String
Dim Contador As Long, CadenaAux As String, cadenaTemp As String

CadenaAux = ""
cadena = Encripta(cadena, clave)
For Contador = 1 To Len(cadena)
cadenaTemp = Hex(Asc(Mid(cadena, Contador, 1)))
If Len(cadenaTemp) = 1 Then cadenaTemp = "0" & cadenaTemp
CadenaAux = CadenaAux + cadenaTemp
Next Contador
EncriptarCadena = CadenaAux
End Function

Function DesencriptarCadena(ByVal cadena As String, Byval clave as string) As String
Dim Contador As Long, CadenaAux As String

CadenaAux = ""
For Contador = 1 To Len(cadena) Step 2
CadenaAux = CadenaAux + Chr("&H" & Mid(cadena, Contador, 2))
Next Contador
CadenaAux = Encripta(CadenaAux, clave)
DesencriptarCadena = CadenaAux
End Function

Private Function Encripta(ByVal cadena As String, Byval clave as string) As String
Dim LargoCadena As Long
Dim CaracterAscii As Long
Dim CaracterEcrip As Long

Randomize Rnd(-1)
For LargoCadena = 1 To Len(clave)
Randomize Rnd(-Rnd * Asc(Mid(clave, LargoCadena, 1)))
Next LargoCadena

For LargoCadena = 1 To Len(cadena)
CaracterAscii = Asc(Mid(cadena, LargoCadena, 1))
CaracterEcrip = Int(Rnd * 256)
Mid(cadena, LargoCadena, 1) = Chr(CaracterAscii Xor CaracterEcrip)
Next LargoCadena

Encripta = cadena
End Function