Вывод информации из БД Access - VB

Формулировка задачи:

Короче вопрос такой. Есть таблица в ней допустим 5 столбцов нужно сделать так чтобы каждая запись базы данных выводилась построчно например в текстовые поля. Например 1 запись с 1 по 5 текстовое поле 2 запись с 6 по 11 текстовое и т.д

Решение задачи: «Вывод информации из БД Access»

textual
                            Листинг программы 
                        

                            Dim D As New ADODB.Connection
 
Private Sub cmdAddTable_Click()
    Dim Name As String
    Name = InputBox("Введите имя")
    If Len(Name) Then
        D.Execute "CREATE TABLE [" & Name & "] (Id AUTOINCREMENT PRIMARY KEY NOT NULL ,Surname CHAR (30) NOT NULL,Name CHAR (30) NOT NULL,Patronymic CHAR (30) NOT NULL, BlaBlaBla CHAR (30) NOT NULL);"
    End If
    RefreshList
End Sub
Private Sub RefreshList()
    Dim C As ADODB.Recordset
    Set C = D.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
    lstTable.Clear
    While Not C.EOF
        lstTable.AddItem C!TABLE_NAME
        C.MoveNext
    Wend
End Sub
Private Sub Form_Load()
    D.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;" & _
    "Data Source=" & App.Path & "\DB.MDB"
    D.Open
    RefreshList
End Sub
                        