[Resolvido]Problema com e-mail de conformidade

Bom dia, boa tarde, boa noite dependendo do fuso.

A algum tempo eu, Felipe e a Mariane, entramos em um empresa que possui um sistema no Access 2007, que controla documentos que entram e saem. Esse sistema possui dois módulos iguais(ANEXO2), que são chamados através de um arquivo ".bat"(ANEXO1), o qual realizam uma verificação dos dados e envia um e-mail caso estejam faltando algum dado na tabela principal.

Quando o erro ocorre ("Erro em tempo de execução '13': Tipos incompatíveis") ao depurar, o Access indica a linha número 26, do ANEXO2.

Ele funcionava perfeitamente, até o dia em que foi modificado o local onde fica hospedado na rede. Nada no código foi alterado e o caminho para que funcione está correto, mas por algum motivo não está funcionando.

Somos iniciantes com Access, se puderem nos ajudar...

Desde já agradeço pela compreensão e ajuda de todos!

Respeitosamente,
Felipe Ravani e Mariane Luiza

Ola, seja bem vindo ao forum.

Quer colar aqui o trecho de código, para que possamos simular e ver o erro ?

A versão do Ms Access é 2007 e qual a versão do Windows que estão a usar ?

Bom dia, boa tarde, boa noite dependendo do fuso.

Segue o anexo...

Desculpe nos não tê-los enviado.

Respeitosamente,
Felipe Ravani e Mariane Luiza

Ola;

Extremamente dificil reproduzir isto sem o banco;

No entanto vejo, que tem algo que deve mudar;

De
Dim tst As Object

para
Dim tst As Recordset

Porque você está a abrir um recordset
Set tst = db.OpenRecordset("SELECT * FROM tblControleConteudo WHERE NumGRM = " & vlTotal - i)

No final do código deve fechar com:
tst.Close: Set tst = Nothing

Bom dia, boa tarde, boa noite dependendo do fuso.

O problema foi resolvido!

Além da correção do Mestre JPaulo, refizemos a Macro e rodou liso.

Obrigado pela ajuda!

Respeitosamente,
Felipe Ravani e Mariane Mariano

Fico feliz e obrigado pelo retorno.