Primer proyecto en Visual Basic[Mysql + VB6]

[Jackes96]

Hola, estoy intentando hacer un proyecto en el cual necesito conectar a una DB en MySQL.
He probado varias formas, pero siempre me quedo en conexión, no llego a saber como mostrar una consulta.
Ahora mismo el código de conexión que tengo es el siguiente:

Código:

Private Sub Command1_Click()
Dim Cxn As ADODB.Connection
        Dim AdoS As ADODB.Recordset
    Dim CxnFac As String
    Set Cxn = New Connection
    Cxn.CursorLocation = adUseClient
    CxnFac = "Driver={MySQL ODBC 6.1.6 Driver};Server=localhost;Port=3306;Option=131072;Stmt=;Database=test;Uid=root;Pwd=;"
    Cxn.Open CxnFac ' Abrimos la conexion
    Set AdoS = New Recordset
    AdoS.Open "Select * From test", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
    MsgBox AdoS!id
End Sub

Me da el error de "Invalid use of New keyword"
En la linea: Set Cxn = New Connection

Muchas gracias de antemano.

[Jackes96]

Upp.. lo siento, pero es urgente

[Insomnia]

Hola

Yo suelo declarar todo en una sola linea:

Código:

Dim bd As New ADODB.Connection
Dim reg As New ADODB.Recordset

--Saludos--

[Jackes96]

ok, gracias por dignarte a contestar :D
He cambiado el código por otro que me funciona.
Ahora mi pregunta es, ¿Sabes algun servidor que acepte conexión remota desde VB?

[Insomnia]

Hola

Nunca he alojado un programa en un servidor, pero como veo que tu base de datos es mysql no creo que tengas muchos problemas, ya que la mayoría de los servidores dan soporte mysql. Yo tenía una página con iespana con soporte MySQL gratuito, pero no se como funcionara con VB6

Puede que cambiando el conection string con los datos del servidor puedas conectarte. De todas formas espero que otro forero con más experiencia pueda responderte mejor.

--Saludos--

[Jackes96]

Muchas gracias por tu respuesta Insomnia.
He probado ya (con resultados desastrosos) varios servidores gratuitos y de momento ninguno me ha servido.
Estoy un poquito desesperado, por que de ello corre la salida de mi proyecto :)
De todos modos, gracias por el interés en responder.
--Saludos--