[messry]

كود :

       Dim da As New OleDbDataAdapter()


       Dim dt As New DataTable()
       da.SelectCommand = New OleDbCommand("Select YourField,count(YourField) from YourTable order by YourField", cn)
       da.Fill(dt)
       Dim r As DataRow
       For Each r In dt.Rows
           if r.Item(1) = 0 then
'  افعل شيء ما                         الحققول الغير مكررة
              else
' الحقول المكررة                      افعل عسكه
           endif

       Next

السلام عليكم

حاول الكود التالي: