non funziona

questo è il codice:
codice:
Private Sub Command1_Click()
   Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=127.0.0.1;" _
    & "DATABASE=motocross;" _
    & "UID=root;" _
    & "PWD=;" _
    & "PORT=3306;" _
    & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    conn.CursorLocation = adUseClient
    conn.Open
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
End Sub
e questo è l'errore:
codice:
[MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on '127.0.0.1' (10061)