conectarme a una base de datos mysql

enrique
20 de Julio del 2004
hola estoy haciendo una aplicacion en visual basic 6.0 (estoy recien aprendiendo), la cualse debe conectar a una base de datos mysql, para hacer esto se ingresa a un formulario donde sedebe ingresar pass y nombre de usuario que sera verificado en una tabla. POr favor si alguien me puede ayudar, si tengo que activar algo, o poner algo, aqui les mando el codigo, me tirar un error run-time error 2147467259 (80004005)
Private Sub ENTRAR2_Click()
Dim res As Variant, nom As Variant, pass As Variant
Dim Rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim SQL As String
Dim conex As String
nom = usuario.Text
pass = contraseña.Text
Set Rs = New ADODB.Recordset
SQL = "SELECT count(*) as Total FROM usuario WHERE NOMBRE_USUARIO = \'" & nom & "\' And CONTRASENA = \'" & pass & "\'"
conex = "DRIVER={MySQL ODBC 2.50 Driver};" _
& "SERVER=ipmysql;" _
& "DATABASE=mibd;" _
& "UID=usuario;" _
& "PWD=password;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Rs.Open SQL, conex, adOpenDynamic, adLockOptimistic
res = Rs!Total
If (res <> 0) Then
Rs.Close
Unload Me
Else
MsgBox "usuario o contraseña no valida", vbCritical, "Error de validacion"
usuario.Text = ""
contraseña.Text = ""
usuario.SetFocus
End If

End Sub