Remplir et supprimer éléments listebox VB.net

Bonjour,
J'ai un soucis depuis plusieurs jours avec mon programme VB 2008.

J'ai une listbox que je remplis avec des éléments d'une table d'une bdd SQL Serveur.
Puis j'ai un bouton "Supp" qui supprime les éléments sélectionnés dans la listbox dans la bdd et qui raffraichit la listbox.

Mais j'ai des soucis... forcement ^^
Vous pouvez m'aider en me disant ce qu'il ne va pas...

Merci d'avance !

Je vous met mon code :

Imports System
Imports System.Data
Imports System.Data.SqlClient


Public Class Form1
    Dim Maconnexion As New SqlConnection
    Dim UnDataSet As New DataSet
    Dim UneDataTable As New DataTable
    Dim DeuxDataTable As New DataTable


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Maconnexion.ConnectionString = "Data Source=.\SQLEXPRESS ; Integrated Security=SSPI; Initial Catalog=test"
        Dim Mycommand As SqlCommand = Maconnexion.CreateCommand()
        Mycommand.CommandText = "SELECT nom FROM client"
        Maconnexion.Open()
        Dim myReader As SqlDataReader = Mycommand.ExecuteReader()
        Do While myReader.Read()
            ListBox1.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
    End Sub

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

        Dim C As Integer = ListBox1.SelectedItems.Count
        While C <> 0
            Dim cmd As SqlCommand
            cmd = Maconnexion.CreateCommand
            cmd.CommandText = "DELETE FROM dbo.client WHERE nom = " & ListBox1.SelectedItem.ToString & " ; "
            MsgBox(cmd.CommandText)
            cmd.ExecuteNonQuery()
            C = C - 1
            Dim I As Integer = ListBox1.SelectedIndex
            'ListBox1.SelectedIndices.Remove(I)
            ListBox1.Items.RemoveAt(I)
        End While
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Maconnexion.Close()
        Me.Close()
    End Sub

End Class