[اسامه الهرماوي]

السلام عليكم...
لا ادري هل تتكلم عن هذا الكود ام ماذا:

كود :

Sub combo()
       ' On Error Resume Next
       dt.Clear()
       DataAdapter = New SqlDataAdapter("Select نوع_الكرت FROM type Group By نوع_الكرت", con)
       DataAdapter.Fill(dt)
       If dt.Rows.Count > 0 Then
           نوع.DataSource = dt
           نوع.DisplayMember = "نوع_الكرت"
       Else
           نوع.DataSource = Nothing
       End If
   End Sub

نوع_الكرت = اسم الحقل
نوع = الكمبوبوكس