كيف اقوم بارسال بيانات من حقل الى العمود الاول من القريد

السلام عليكم ورحمة الله و بركاته

هذا اجراء لارسال بيانات حقل بدون تكرار الى اداة ListBox

المطلوب تعديل الكود لارسال بيانات الحقل الى العمود الاول في الداتا قريد

Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT Tar FROM tbl1", Con)
            Call DataSet2.Clear()
            Me.ListBox1.Items.Clear()
            '==========
            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
                    ListBox1.Items.Add(a)
                End If
            Next
        End Using