[Resolvido]VBA cria consulta

Preciso de ajuda, preciso que o modulo do vba crie a consulta abaixo:

SELECT tblmeses.Código, tblmeses.Balas, tblmeses.[Data Pedido], tblmeses.meses, tblmeses.Status, Format(DSum("Balas","Consulta1","[Código]<= " & [Código] & "and [Status]=""NOK""" & IIf([Status]="OK"," or [Código]= " & [Código],""))) AS Expr3 INTO tblmeses1
FROM tblmeses;

Obs.: Onde esta "Consulta1" = nome da consulta ser criada

tentei varias coisa, mas não tive sucesso...

Boa tarde, vandernijs

O código já pressupõe existir a Consulta1. Se a consulta Consulta1 não existe, não pode ter um campo a partir da consulta ainda não existente ->Format(DSum("Balas","Consulta1","[Código]<= " & [Código] & "and [Status]=""NOK""" & IIf([Status]="OK"," or [Código]= " & [Código],"")))

Ok, se alterar para a tabela, o Fortmat com DSUM funciona tbm....

SELECT tblmeses.Código, tblmeses.Balas, tblmeses.[Data Pedido], tblmeses.meses, tblmeses.Status, Format(DSum("Balas","tblmeses","[Código]<= " & [Código] & "and [Status]=""NOK""" & IIf([Status]="OK"," or [Código]= " & [Código],""))) AS Expr3 INTO tblmeses1
FROM tblmeses;

Como faço para o VBA criar essa consulta??

veja se funciona
Currentdb.execute "SELECT INTO Consulta1 FROM Código,Balas,[Data Pedido], meses, Status, Format(DSum("Balas","tblmeses","[Código]<= " & [Código] & "and [Status]='NOK'" & IIf([Status]="OK"," or [Código]= " & [Código],""))) AS Expr3 FROM tblmeses;"

Não funcionou, a fórmula ficou em vermelho no vba...

O erro estará aqui
Format(DSum("Balas","tblmeses","[Código]<= " & [Código] & "and [Status]='NOK'" & IIf([Status]="OK"," or [Código]= " & [Código],"")))
reveja a expressão