ayuda con visual basic

[darkness-sal]

B tardes al momento de estar generando un pequeño fragmento de codigo me sale el siguiente error
"numero de argumentos erroneo o asignacion de propiedad no valida "

el fragmento de codigo es el siguiente:

Private Sub cmdOK_Click()
Set con = New ADODB.Connection 'establece conexion
'para abrir la base de datos
CONEX.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=172.17.25.181; DATABASE=horarios;UID=root; PWD=xxxx; OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
con.CursorLocation = adUseClient
con.Open CONEX
con.Open "select pass as contrasena from usuarios", con, adOpenDynamic, adLockOptimistic
'comprobar si la contraseña es correcta
If txtPassword.Text = con("contrasena") Then
en esta parte | me marca el error
LoginSucceeded = True
Me.Hide
frmSplash.Show
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub


si me pudieran ayudar se los agradeceria
salu-2

[proteo1]

Hola a menos que CON sea una funcion propia analiza los parametros de otra manera elimina CON() y deja solamente "contraseña" para que compare, el textbox con la clave.

If txtPassword.Text = con("contrasena") Then

y quedaria asi

If txtPassword.Text = "contrasena" Then 'Normal

o asi

If txtPassword.Text = ucase("contrasena") Then 'Mayusculas

o asi

If txtPassword.Text = lcase("contrasena") Then 'Minusculas

o asi

If txtPassword.Text = ltrim("contrasena") Then 'Sin espacios a los lados

espero te sea util.