SoloCodigo

Hola todos estoy haciendo una pequeña aplicacion en visual basic 6 y trato de establecer una conexion a mysql les pego a continuacion el codigo que utilizo

este codigo lo tengo en un modulo

Public Function ConectarMysql(ByVal IniServidor As String, ByVal IniUsuario As String, ByVal IniPasword As String, ByVal IniBaseDatos As String) As String


Dim consql As String

With ConectarMysql
    Set ConectarMysql = New ADODB.Connection
    ConectarMysql.CursorLocation = adUseClient
    consql = "Driver={MySQL ODBC 3.51 Driver};server=" & IniServidor & ";uid=" & IniUsuario & ";pwd=" & IniPasword & ";database=" & IniBaseDatos & ";connection="
    ConectarMysql.ConnectionString = consql
    ConectarMysql.CommandTimeout = 40
    ConectarMysql.Open
End With

End Function


en el formulario llamo de la siguiente forma la funcion


Private Sub Command3_Click()
Call ConectarMysql("localhost", "root", "", "prueba")
MsgBox "conectado a la base de datos"
End Sub


al ejecutar me da el siguiente error:
el objeto with debe ser de un tipo definido por el usuario, object o variant

espero me digan donde esta el error

gracias de antemano

Hola willysistemas

El uso de With es para objetos no para nombre de funciones,  ni variables salvo estructuras. Como te indica F_Tanori debes instanciar primero un objeto coneccion para luego valga la redundancia puedas utilizar las propiedades de este objeto coneccion usando el With de tal forma que ya no estes repitiendo el nombre del objeto sino solo usando sus propiedades y metodos en el.

Un saludo
Zeekel [TKLP]