Bouton et SQL Data Read

Bonjour,

J'aimerais savoir ce qui cloche dans le procéder suivant.. le logiciel se ferme et je ne peux lire les données. En fait, j'aimerais me connecter à la base de donnée, y lire un champ et si le champ correspond à celui de mon combobox (avant cliquer sur le bouton), énumérer dans une boucle les données.

MERCI à l'avance !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim con As SqlConnection = Nothing
        Dim command As SqlCommand = Nothing
        Dim cs As String = "Data Source=SQL\serveur;Initial Catalog=CATALOGUE;User Id=USER;Password=PASS"
        Dim dr As SqlDataReader = Nothing
        Dim combo As String = ""
        combo = ComboBox1.Items.ToString
 
        con = New SqlConnection(cs)
        con.Open()
        command = New SqlCommand("SELECT NomTransporteur FROM SuiviReception WHERE ID='" & combo & "';", con)
        dr = command.ExecuteReader()
 
        While dr.Read
 
            Me.LBL_COUT.Text = "Nom Transporteur " & dr.GetValue(0) & "?"
        End While
    End Sub