Outro Código acessa banco de dados mas evento click nao funciona

[JHOWSQAW]

Bom Dia !

Meu amigos, estou com um problema já faz uns dias, estou montando um pequeno controle de estoque pra uma loja porém meu código não funciona, no evento click da erro na linha do 

 Set consulta = banco.OpenRecordset(ComandoSQL) está dando erro 13 alguém pode me ajudar. desde já muito obrigado.

arrumando essa parte creio que consiga fazer as demais guias....

MANUTENÇÃO.zip

[JHOWSQAW]

up