With CnA
   .CursorLocation = adUseClient
   .Mode = adModeShareDenyNone
   .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                     & "SERVER=127.0.0.1;" _
                     & "DATABASE=test;" _
                     & "UID=web1" _
                     & "PWD=0815" _
                     & "OPTION=" & 1+2+8+32+2048+16384
   Debug.Print .ConnectionString
   .Open
  End With