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

وعليكم السلام...
إستخدم هذا الكود فهو يلبي المطلوب, وانظر الي النتيجة في المرفقات,
تفضل:

كود :

 Dim dd As New DataGridViewComboBoxColumn
       datagridview1.Columns.Add(dd)
       dd.HeaderText = "فصيلة الدم"

       On Error Resume Next
       Dim dsp As New DataTable
       dsp.Clear()
       DataAdapter = New OleDbDataAdapter("Select الفصيلة FROM t1 Group By الفصيلة", con)
       DataAdapter.Fill(dsp)
       If dsp.Rows.Count > 0 Then
           dd.DataSource = dsp
           dd.DisplayMember = "الفصيلة"
       Else
           dd.DataSource = Nothing
       End If