Управление представлением списка. Нуждаться в помощи

---

У меня есть тип кода и он показывает такую ошибку:

Rs. Fields(DS, "Register") "это область, где отображается ошибка"

Доступ к свойству должен присваиваться этому свойству или использоваться его значение.

Пожалуйста, уважаемые старшие, сделайте что-нибудь в этом отношении.

Что я уже пробовал:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

       Dim DDR As ADODB.Recordset
       Dim DS As DataSet
       ListView1.View = View.Details
       ListView1.GridLines = True
       ConnectDatabase()
       DDR.Open("select * from Register", CON)

       Rs.Fields(DS, "Register")

       For i As Integer = 0 To DS.Tables(0).Columns.ToString.Count - 1
           ListView1.Columns.Add(DS.Tables(0).Columns(i).ColumnName.ToString())
       Next

       ListView1.Columns(0).Text = "Serial No."
       ListView1.Columns(1).Text = "Employee Name"
       ListView1.Columns(2).Text = "Father Name"
       ListView1.Columns(3).Text = "NIC No."
       ListView1.Columns(4).Text = "Tel. Phone No."
       ListView1.Columns(5).Text = "Address"
       ListView1.Columns(6).Text = "Designation"
       ListView1.Columns(7).Text = "Department"
       ListView1.Columns(8).Text = "Status"
       ListView1.Columns(9).Text = "Medical"
       ListView1.Columns(10).Text = "Graduity"
       ListView1.Columns(11).Text = "PFund"
       ListView1.Columns(12).Text = "Transport"
       ListView1.Columns(13).Text = "Employement Date"


       Dim ItemCol(100) As String

       For i As Integer = 0 To DS.Tables(0).Rows.Count - 1
           For j As Integer = 0 To DS.Tables(0).Columns.Count - 1
               ItemCol(j) = DS.Tables(0).Rows(i)(j).ToString()
           Next

           Dim livi As New ListViewItem(ItemCol)
           ListView1.Items.Add(livi)
       Next

   End Sub

---