Adodc и Word

[SUPchik]

При запуске программы создается Adodc и DataGrid с данными о студентах (КодСтудента,Фамилия,Имя,Отчество,ДатаРождения,Курс,Группа), и создается документ Word (ведомость успеваемости),в котором есть таблица с пятью столбцами. Нужно во второй столбец таблицы вставить все фамилии,имена и отчества.Делаю следующим образом:

Do While Not Adodc2.Recordset.EOF
doc.Bookmarks("первая").Range.Text = Adodc2.Recordset(1).Value & " " & Adodc2.Recordset(2).Value & " " & Adodc2.Recordset(3).Value
Adodc2.Recordset.MoveNext
Loop

Но проблема в том,что все данные записываются в одну ячейку. Подскажите как быть. И как быть если число ФИО будет больше 30?

[SUPchik]

Сам спросил,сам и отвечу:

Код: Выделить всё

Do While Not Adodc2.Recordset.EOF
For a = 2 To Adodc2.Recordset.RecordCount + 1
doc.Tables(1).Cell(a, 2).Select
Selection.Text = Adodc2.Recordset(1).Value & " " & Adodc2.Recordset(2).Value & " " & Adodc2.Recordset(3).Value
Adodc2.Recordset.MoveNext
Next
Loop