Создание таблицы средствами VBA

'Создание новой таблицы СТУДЕНТЫ в текущей базе данных
Sub CreateTableDefX()
'Определяем переменные
Dim myDb As Database
Dim myTab As TableDef
Dim myF As Field
 
Set myDb = CurrentDb()
 
'Создаем новый объект TableDef - таблицу СТУДЕНТЫ
Set myTab = myDb.CreateTableDef("Студенты")
 
'Создаем новый объект Field - текстовое поле Номер студента и
'добавляем его к семейству полей объекта таблицы СТУДЕНТЫ
Set myF = myTab.CreateField("Номер студента", dbInteger)
myTab.Fields.Append myF
'Создаем новый объект Field - текстовое поле ФИО и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("ФИО", dbText)
myTab.Fields.Append myF
 
 
'Создаем новый объект Field - текстовое поле Предмет1 и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("Предмет1", dbInteger)
myTab.Fields.Append myF
'Создаем новый объект Field - текстовое поле Предмет2 и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("Предмет2", dbInteger)
myTab.Fields.Append myF
'Создаем новый объект Field - текстовое поле Предмет3 и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("Предмет3", dbInteger)
myTab.Fields.Append myF
'Создаем новый объект Field - текстовое поле Предмет4 и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("Предмет4", dbInteger)
myTab.Fields.Append myF
'Создаем новый объект Field - текстовое поле Средний балл и
'добавляем его к семейству полей объекта таблицы Студенты
Set myF = myTab.CreateField("Средний балл", dbDouble)
myTab.Fields.Append myF
 
'Добавляем объект таблицу Студенты к семейству таблиц базы данных
myDb.TableDefs.Append myTab
 
End Sub

dim rs as new adodb.recordset
dim bufer as variant
rs.open ' твоя созданная таблица, если это конечно в access
rs.movefirst
do until rs.eof
bufer= ' данные из источника на одно поле
rs.fields()=bufer' указываешь необходимое поле или просто перебираешь коллекцию и заносишь данные переменную  буфер тоже надо будет менять
loop