[Débutant] remplir dropdownlist d'une base de données

bonjour
je voudrais remplir dropdownlist d'une base de données
voila mon code mais ça marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
  Dim Con_Exp As New SqlConnection
            Con_Exp.ConnectionString = My_Connect_String
            Con_Exp.Open()
 
        Dim Get_From_gerant As New SqlCommand("SELECT code_gerant FROM gerant Where code gerant='" & DropDownListcode.Text & "'", Con_Exp)
 
        Dim Get_User As SqlDataReader = Get_From_gerant.ExecuteReader()
 
            Do While Get_User.Read
 
 
            Loop
            Con_Exp.Close()

comment faire svp ?
merci.