Как заполнить данные из базы данных в виде списка?

---

Я не знаю, как добавить данные в список, пока у меня есть пять столбцов в моей базе данных. Пожалуйста, предложите мне код для задания желания.
Спасибо

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

    Private Sub BtnFetchRds_Click(sender As Object, e As EventArgs) Handles BtnFetchRds.Click

        Rs = New ADODB.Recordset
        Rs.Open("select * from Employee")
        If Not Rs.EOF Then
            LstView.Items.Add(Rs)
        Else
            MsgBox("No Record Found in Data Base", MsgBoxStyle.Critical, strprojectname)
        End If
        Rs.Close()
    End Sub

End Class

---