[vbnet]

-
استخدم DataTable طالما أنك تتعامل مع جدول واحد.

كود :

Using da As New OleDbDataAdapter("SELECT DISTINCT [Tar] FROM [tbl1] WHERE ([Tar] IS NOT NULL) AND (TRIM([Tar]) <> '') ", Con)
    Dim dt As New DataTable
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Using