With oConn
  .Provider = "MSDASQL;Driver=MySQL ODBC 3.51 Driver"
  .ConnectionString = "Server=xxxxx;Database=xxxxx"
  .Properties("User ID") = "xxxxx"
  .Properties("Password") = "xxxxx"
  .CursorLocation = adUseClient
  .Open
End With