une erreure a la création d'une tabe en vba

J'ai démaré un petit programme qui crée une table tempo.
mais j'ai un petit problème pour créer ma table vide en VBA. je fais ceci

DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("CREATE TABLE tempo (champ1 CHAR(10),champ'
Double,champ3 double,champ4 Long,champ5 long);")
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True

et ca me répond cela
"Elément non trouvé dans cette collection"

pourquoi?
merci