Не совсем точно, что именно вы спрашиваете.
Чтобы добавить строки в таблицу в коде VBA, вы можете использовать набор записей DAO следующим образом:
Dim rs As DAO.Recordset
Set rs= CurrentDb.OpenRecordset("TableName", dbOpenDynaset)
rs.AddNew
rs![ColumnName1] ="Some Value"
rs![ColumnName2] ="Some Value"
rs.Update
rs.Close
Или для запуска запроса на добавление в VBA встроите оператор SQL в строку и выполните оператор следующим образом:
CurrentDb.Execute strSQLText, dbFailOnError