[adel27]

تبحث بــ  select  عادي عن الحقل المراد أدراجه في 
في البدايه تقوم تبعريف هذا الأجراء
والأستدعاء سيكون في حدث Lode

كود :

) Feilllist("select * from Contris order by Name"

كود :

 Sub Feill(ByVal sql As String)
       ListBox1.Items.Clear()
     
       Dim da As New SqlClient.SqlDataAdapter(sql, sqlConn)
       Dim ds As New DataSet
       da.Fill(ds)
       Dim dt = ds.Tables(0)

       For i = 0 To dt.Rows.Count - 1
           ListBox1.Items.Add(dt.Rows(i).Item("Name"))
       Next
   End Sub