Создал запрос на добавление zpr1, первая строка которого, естественно, начинается на Insert Into mytable...

Пишу в VBA:

dim cnn as new adodb.connection
dim rst as new adodb.recordset
set cnn=currentproject.connection
set rst=cnn.execute "zpr1"

и при запуске, на этой строке "set rst..." выскакивает ошибка типа : "Предполагалось использование DELETE, INSERT..." и причем даже при использовании не запроса, а строки SQL- та же беда.
В чем проблема ?

Прописывал строку SQL в программе (strSQL="insert into..........."), но все-равно та же самая ошибка выскакивает...зараза...

zpr1- это имя запроса, почему без ковычек...?

РЕАЛЬНАЯ СТРОКА SQL:

Dim strSQL As String
strSQL = "INSERT INTO тблОптОБЩАЯ ( ГИБДД, АМТС_Г, САМТС_Г, ПАМТС_Г, ДОК_Г, СДОК_Г, ПДОК_Г, ЛИЦА_Г, СЛИЦА_Г, ПЛИЦА_Г, АМТС_Р, САМТС_Р, ПАМТС_Р, ДОК_Р, СДОК_Р, ПДОК_Р, ЛИЦА_Р, СЛИЦА_Р, ПЛИЦА_Р, АМТС_К, САМТС_К, ПАМТС_К, ДОК_К, СДОК_К, ПДОК_К, ЛИЦА_К, СЛИЦА_К, ПЛИЦА_К, АМТС_Т, САМТС_Т, ПАМТС_Т, ДОК_Т, СДОК_Т, ПДОК_Т, ЛИЦА_Т, СЛИЦА_Т, ПЛИЦА_Т, Ориент, ДАТА )"
strSQL = strSQL & "SELECT Общая.ГИБДД, Sum(Общая.АМТС_Г) AS [Sum-АМТС_Г], Sum(Общая.САМТС_Г) AS [Sum-САМТС_Г], Sum(Общая.ПАМТС_Г) AS [Sum-ПАМТС_Г], Sum(Общая.ДОК_Г) AS [Sum-ДОК_Г], Sum(Общая.СДОК_Г) AS [Sum-СДОК_Г], Sum(Общая.ПДОК_Г) AS [Sum-ПДОК_Г], Sum(Общая.ЛИЦА_Г) AS [Sum-ЛИЦА_Г], Sum(Общая.СЛИЦА_Г) AS [Sum-СЛИЦА_Г], Sum(Общая.ПЛИЦА_Г) AS [Sum-ПЛИЦА_Г], Sum(Общая.АМТС_Р)"
strSQL = strSQL & "AS [Sum-АМТС_Р], Sum(Общая.САМТС_Р) AS [Sum-САМТС_Р], Sum(Общая.ПАМТС_Р) AS [Sum-ПАМТС_Р], Sum(Общая.ДОК_Р) AS [Sum-ДОК_Р], Sum(Общая.СДОК_Р) AS [Sum-СДОК_Р], Sum(Общая.ПДОК_Р) AS [Sum-ПДОК_Р], Sum(Общая.ЛИЦА_Р) AS [Sum-ЛИЦА_Р], Sum(Общая.СЛИЦА_Р) AS [Sum-СЛИЦА_Р], Sum(Общая.ПЛИЦА_Р) AS [Sum-ПЛИЦА_Р], Sum(Общая.АМТС_К) AS [Sum-АМТС_К], Sum(Общая.САМТС_К) AS [Sum-САМТС_К], Sum(Общая.ПАМТС_К) AS [Sum-ПАМТС_К], Sum(Общая.ДОК_К) AS [Sum-ДОК_К], Sum(Общая.СДОК_К) AS [Sum-СДОК_К], Sum(Общая.ПДОК_К) AS [Sum-ПДОК_К], Sum(Общая.ЛИЦА_К) AS [Sum-ЛИЦА_К], Sum(Общая.СЛИЦА_К) AS [Sum-СЛИЦА_К], Sum(Общая.ПЛИЦА_К) AS [Sum-ПЛИЦА_К], Sum(Общая.АМТС_Т) AS [Sum-АМТС_Т], Sum(О"
strSQL = strSQL & "бщая.САМТС_Т) AS [Sum-САМТС_Т], Sum(Общая.ПАМТС_Т) AS [Sum-ПАМТС_Т], Sum(Общая.ДОК_Т) AS [Sum-ДОК_Т], Sum(Общая.СДОК_Т) AS [Sum-СДОК_Т], Sum(Общая.ПДОК_Т) AS [Sum-ПДОК_Т], Sum(Общая.ЛИЦА_Т) AS [Sum-ЛИЦА_Т], Sum(Общая.СЛИЦА_Т) AS [Sum-СЛИЦА_Т], Sum(Общая.ПЛИЦА_Т) AS [Sum-ПЛИЦА_Т], Sum(Общая.Ориент) AS [Sum-Ориент], Max(Общая.ДАТА) AS [Max-ДАТА]"
strSQL = strSQL = strSQL & "FROM Общая"
strSQL = strSQL & "WHERE (((Общая.ДАТА) Between [forms]![ОПТИМИЗАТОР]![ДатаС] And [forms]![ОПТИМИЗАТОР]![ДатаПо]))"
strSQL = strSQL & "GROUP BY Общая.ГИБДД;"

Короче, проще через DoCmd...