Aide pour corrigé le code VB 2008

Bonjour,
voilà un code que j'ai réalisé pour la connexion à la base de donnée mysql ,avec VB 2008, l'ajout et la suppression dans la base mais le pbléme c'est que rien ne fonctionne pourtant qu'il n'y a pas d'erreur pouvez vous m'aider svp :

Imports MySql.Data.MySqlClient

Public Class Form1
Dim Host As New MySqlConnection 'pour la connexion a la base de donnée
Dim req As MySqlDataAdapter 'objet MySqlDataAdapter qui par sa propriété Fill charge le DataSet

'La connexion à la base de donnée
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Host.ConnectionString = "Server=localhost;user id=root;database=tester"
Try
'ouvrir la connexion
Host.Open()
Catch ex As Exception
MessageBox.Show("Impossible de ce connecté a la base : " + ex.Message.ToString)
Exit Sub
End Try
Host.Close() 'fermer la connexion
End Sub

' ajout dans les champs de texte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Host.open()
If txtid.Text = "" Or txtnom.Text = "" Or txtprenom.Text = "" Or txtuser.Text = "" Or txtpw.Text = "" Then
MessageBox.Show("Il faut remplir tout les champs", vbCr, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
req = New MySqlDataAdapter("INSERT INTO `tester`.`personne` (`id_p`, `nom`, `prenom`, ` un`, `pw`, `email`) VALUES ('Null','" + txtnom.Text + "','" + txtprenom.Text + "','" + txtuser.Text + "','" + txtpw.Text + "','" + txtmail.Text + "');", Host)
Host.Close()
End Sub

End Class