Visual Basic - Password codificado con MySQL

Hola a todos

Estoy desarrollando una aplicación en VB con MySQL como BD. Tengo un problema respecto a los password que asigno a los usuarios, ocupo el siguiente procedimiento para encriptar el password por medio del comando PASSWORD de MySQL:

If Not conexion.rst.EOF = False Then
'No existe el registro, se da de alta la compañía
TXsql = "INSERT INTO USUARIOS (BORRA,USER,PASS) "
TXsql = TXsql + "VALUES('N','" + vData + "',PASSWORD('" + txtPassword.Text + "'))"
conexion.EjecutaSQL (TXsql)
....

El código anterior lo ejecuta bien, y me devuelve la clave codificada, el problema es cuando acceso a la aplicación desarrollada, no puedo recuperar el password codificado, he intentado asi:

Dim MySQLpassword As String

username = txtUserName.Text
password = txtPassword.Text

Dim conexion As New Conn
conexion.GetUsuarios (txtUserName.Text)
If conexion.rst.EOF = False And username = "ADMIN" Then
MySQLpassword = conexion.rst.Fields("PASSWORD(PASS)")
'comprobar si la contraseña es correcta
If password = MySQLpassword Then
......

el método GetUsuarios es el siguinete:

Public Sub GetUsuarios(txtUserName As String)
Set rst = New ADODB.Recordset
sql = "select PASSWORD(PASS) from USUARIOS "
sql = sql + " where USER=" + " '" + txtUserName + "'"
Set com.ActiveConnection = con
com.CommandType = 1
com.CommandText = sql
rst.Open com, , 1, 1
End Sub

¿Alguien podría orientarme en cómo recuperar un password codificado en MySQL?

Gracias, saludos

por lo que veo tenes u porblema con las sintasis de las palabras usais:
conexion, con, com y conn.
debeis aclararos porque es muy confuso!

Respetuosos saludos

Perdonen, es que utilizo Módulos de Clase, esas variables pertenecen a una clase. Saludos.