Чтение SQL запросов из файла - VBA

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

Здравствуйте! Помогите пожалуйста разобраться. Есть база в ACCESS, в ней созданы таблицы, надо в эти таблицы вставить целую гору данных. Данные в виде запросов: " INSERT INTO tblsyStem " & "(id, System) VALUES " & "(1, 'ACA'); Раньше делал так:

Option Compare Database
 
Sub InsertIntoX2()
 
    Dim dbs As Database    
        Set dbs = OpenDatabase("C:\DBClean.accdb")
dbs.Execute " INSERT INTO tblsyStem " & "(id, System) VALUES " & "(1, 'ACA');"
dbs.Close
 
End Sub
 
Всё ОК, но в VBA максимум за раз можно откомпилировать примерно 16К строк, что крайне мало. Пришла идея читать по строчно из файла. Получилось так:
 
Option Compare Database
 
Sub InsertInto()
 
    Dim dbs As Database
    Dim fileName As String, textData As String, textRow As String, fileNo As Integer
     
Set dbs = OpenDatabase("C:\DBClean.accdb")
 
fileName = "C:\values.sql"
fileNo = FreeFile 'Get first free file number
    
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
   Line Input #fileNo, textRow
   textData = textData & textRow
Loop
Close #fileNo

    dbs.Close
 
End Sub

Но, это не работает. Что-то читает и всё. Ни ошибки, ни данных в таблице. Подскажите пожалуйста. Спасибо. П.С. Сорри, что не выделил код - не работают кнопки в моём браузере.

Решение задачи: «Чтение SQL запросов из файла»

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

                            Sub InsertInto()
 
    Dim dbs As Database
    Dim fileName As String, textData As String, textRow As String, fileNo As Integer
     
Set dbs = OpenDatabase("C:\DBClean.accdb")
 
fileName = "C:\values.sql"
fileNo = FreeFile 'Get first free file number
    
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
   Line Input #fileNo, textRow
'''''''''''''''
''dbs.Execute " INSERT INTO tblsyStem " & "(id, System) VALUES " & "(1, 'ACA');"
'''''''''''''''
dbs.Execute textrow
 
Loop
Close #fileNo
 
         
    dbs.Close
 
End Sub
                        