Insertion un formulaire à la base de donnée

salut ,j'ai besoin de l'aide de vous :)

j'ai plusieur faute aux code j'ai l'utilise visuel studio 2012 et une base mysql si vous plaît aider moi merci


Imports MySql.Data.MySqlClient
Imports System.Data.DataTable
Public Class aj_patient

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" Then

Dim MysqlConn As MySqlConnection
MysqlConn = New MySqlConnection()

MysqlConn.ConnectionString = "server=localhost;user id=root;password=;persistsecurityinfo=True;database=plateform"





Try

MysqlConn.Open()
Catch myerror As MySqlException
MessageBox.Show("Cannot connect to database: " & myerror.Message)
End Try




Dim myAdapter As New MySqlDataAdapter






Dim CommandText = "insert into 'plateform'.'patient' ( 'utilisateur', 'pasword', 'cin', 'adress_elec', 'nom', 'prenom', 'date_nais', 'sexe', 'ville') VALUES ('1', 'utilisateur', 'pasword', 'cin', 'adress_elec', 'nom', 'prenom', 'date_nais', 'sexe', 'ville');"
Dim myCommand As New MySqlCommand()
myCommand.Connection = MysqlConn
myCommand.CommandText = CommandText
myAdapter.SelectCommand = myCommand
myCommand.ExecuteNonQuery


MsgBox("patient ajouté avec succe", MsgBoxStyle.Information, "Ajout Stage")
TextBox1.Text = ""

Else
MsgBox("veullez remplire tout les cases svp", MsgBoxStyle.Critical, "ajout patient")
End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim rsp As MsgBoxResult

rsp = MsgBox("voulez vous vraiment quitter ?", MsgBoxStyle.OkCancel)
If rsp = MsgBoxResult.Ok Then Me.Close()
End Sub