necesitas el controlador instalado de mysql y la siguiente cadena de conexion
Set ConnMySql = New ADODB.Connection
strcnt = "driver={MySQL ODBC 3.51 Driver};server=iponombredetuservidor;uid=tuusuariodemysql;pwd=tupassword;database=tubasededatos;connection=adUseClient"
ConnMySql.CursorLocation = adUseClient
ConnMySql.Open strcnt