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