' Make sure first that you have the MySQL ODBC Driver installed :
Dim MyConnection As System.Data.Odbc.OdbcConnection
MyConnection = New System.Data.Odbc.OdbcConnection("DRIVER={MySQL ODBC 3.51
Driver};SERVER=server_name;DATABASE=base_name;USER=login;PASSWORD=pass")
Dim MyCommand As System.Data.Odbc.OdbcCommand = New Odbc.OdbcCommand("INSERT
INTO Tab1 (col1) VALUES (1)", MyConnection)
MyConnexion.Open()
MyCommand.ExecuteNonQuery()