[Resolvido]Mais de uma execução Sql separado por ponto e virgular

Olá amigos,

gostaria de saber se é possivel eu usar uma docmd.runsql ou currentdb.execute aonde eu consiga fazer dentro de uma mesma variável mais de um comando sql separado por ";". Exemplo:

"INSERT INTO PRODUTOS(PRODUTO, PRECO,COR) VALUES ('MAÇA', 2,'VERMELHA'); INSERT INTO PRODUTOS(PRODUTO, PRECO,COR) VALUES ('BANANA', 5,'AMARELA')"


Grato desde já pela atenção

Bati cabeça aqui e consegui resolver, criei uma execução para cada ponto e virgula

Código:


Dim comandosql
qtdloop = 0
qtcaracteres = Len(MEUCOMANDOSQL)
Dim TEXTOCOMANDO As String

TEXTOCOMANDO = ""

For x = 1 To qtcaracteres
charatual = Mid(MEUCOMANDOSQL, x, 1)
TEXTOCOMANDO = TEXTOCOMANDO & charatual
If charatual = ";" Then
DoCmd.RunSQL (TEXTOCOMANDO)
TEXTOCOMANDO = ""

End If

Next