建议使用第三方MySQL控件,下载地址
http://www.sevenobjects.com/download.aspx
使用方法类似SqlClient Imports System.Data.MySqlClient 
    
   Dim oConnection as New MySqlConnection() 
   Dim oCommand As New MySqlCommand 
   Dim oAdapter As New MySqlDataAdapter 
    
   oConnection.ConnectionString = "Host=localhost; UserName=MyUser; Password=MyPass; Database=addressbook;" 
   oCommand.CommandText = "SELECT id, Name FROM addresses" 
   oCommand.Connection = oConnection 
   oAdapter.SelectCommand = oCommand 
    
   Dim oDataset as new DataSet 
   oAdapter.Fill(oDataset, "addresses") 
   Listbox1.DataSource = oDataset 
   Listbox1.DisplayMember = "Name" 
   oConnection.Close()