Синтаксическая ошибка! - VB

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

Помогите найти синт. ошибку, чего только не меняла

DataEnvironment1.Connection2.Execute ("insert into tblbegin (id,npd,fam,im,ot,nasp,ulc,adr,dat_r,tlf,adm,inv,pri,rai,sex,stat,pens) " _
  & "select id,npd,fam,im,ot,nasp,ulc,adr,dat_r,tlf,adm,inv,pri,rai,sex,stat,pens" _
  & " from tblnew where dtoc(zaiav,1) = " & Format(FrmPrt.datPrint, "yyyymmdd") & "")

Решение задачи: «Синтаксическая ошибка!»

textual
                            Листинг программы 
                        
                             DataEnvironment1.Connection2.Execute ("insert into tblbegin (id, npd, fam, im, ot , dat_r, tlf, pens) select id, npd, fam, im, ot, dat_r, tlf, pens from tblnew where dtoc(zaiav,1) = '" & Format(FrmPrt.datPrint, "yyyymmdd") & "'")