люди помогите немогу сообразить в чем ошибка загружаю данные из таблицы access базы в richtextbox.contexmenu вот код


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Me.WindowTitle
con.Open()
Dim ds1 As New System.Data.DataSet
Dim dt1 As New System.Data.DataTable
ds1.Tables.Add(dt1)
Dim da1 As New OleDbDataAdapter
da1 = New OleDbDataAdapter("select komplect from komlectac", con)
da1.Fill(dt1)
RichTextBox2.ContextMenu.ItemsSource = dt1.DefaultView
con.Close()

результат на фото
в чем ошибка не пойму, у меня там какрас 3 записи и как потом сделать чтоб при выборе в contextmenu пунктов они добавлялись в этот richtextbox