[aftfm]

تم الحل

كود :

Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT Tar FROM tbl1", Con)
            Call MYDataAdapter.Fill(DataSet2, "TarTable")
            For Each MYRow As DataRow In DataSet2.Tables("TarTable").Rows
                Dim a As String = MYRow.Item("Tar")
                If String.IsNullOrEmpty(a) = Nothing Then
                    MYDataAdapter.Fill(DataSet2)
                    DataGridView1.DataSource = DataSet2.Tables(0).DefaultView
                End If
            Next
        End Using