Tente assim
Currentdb.Execute ("INSERT INTO TESTE1 (cmp1, cmp2, cmp3) " & _
" SELECT 4 As Expr1, DateValue(01/10/2007) As Expr1, 3 As Expr1;"
ou
Currentdb.Execute ("INSERT INTO TESTE1 (cmp1, cmp2, cmp3) " & _
" SELECT 4 As Expr1, CDate(01/10/2007) As Expr1, 3 As Expr1;"
Não se esqueça de marcar a resposta como respondida se solucionar..
Até...