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.