my sql using vb.net 2008

Imports System.ServiceProcess
Imports System
Imports Microsoft.Data.Odbc

Here is the VB code that will insert a record into a MySQL database table:

Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=hostname;" & _
"DATABASE=databasename;" & _
"UID=user;" & _
"PASSWORD=password;" & _
"OPTION=3;"
Dim MyConnection As New OdbcConnection(MyConString)
MyConnection.Open()
Dim MyCommand As New OdbcCommand
MyCommand.Connection = MyConnection
MyCommand.CommandText = "INSERT INTO tablename VALUES(NULL,"val1","val2","val3)"
MyCommand.ExecuteNonQuery()
MyConnection.Close() 

Public Sub retriveData()
        Try
            Dim query As String = "SELECT * FROM Country"
            Dim connection As New MySqlConnection(connStr)
            Dim cmd As New MySqlCommand(query, connection)
 
            connection.Open()
 
            Dim reader As MySqlDataReader
            reader = cmd.ExecuteReader()
 
            While reader.Read()
                Console.WriteLine((reader.GetString(0) & ", " & _
                    reader.GetString(1)))
            End While
 
            reader.Close()
            connection.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
End Sub


Function updateRecord(ByVal query As String) As Integer
        Try
            Dim rowsEffected As Integer = 0
            Dim connection As New MySqlConnection(connStr)
            Dim cmd As New MySqlCommand(query, connection)
 
            connection.Open()
 
            rowsEffected = cmd.ExecuteNonQuery()
 
            connection.Close()
 
            Return rowsEffected
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
End Function


 Dim conn As MySqlConnection
        Dim cnString As String
        cnString = My.Settings.constr
        sqlStatement = "INSERT INTO phpvms_fsspireps(pilotid, code, flightnum, depicao, arricao, route, route_details, distance, aircraft, flighttime, flighttime_stamp, landingrate, submitdate, accepted, log, load, fuelused, expenselist, source, exported,) VALUES(13, 'GRW', '1000', 'LGAV', 'LGTS', 'NEVRA UZ507 OSMOS', 'a:0:{}', '120', '4', '00.58', '00:58:00', -1015.85, '2010-05-01 14:15:56', 0, 'Greece Airways Va ACARS application Log Not yet imported!', 111, 3458, '[BLOB - 1Bytes]', 'GRW ACARS', 1,)"
        conn = New MySqlConnection(cnString)
        Try
            conn.Open()
            conn.BeginTransaction(sqlStatement)
        Catch ex As Common.DbException
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
    End Sub