Lu Fênix

Pessoal boa noite, Gostaria da ajuda de vocês para que eu possa resolver este problema que está ocorrendo na minha aplicação.estou desenvolvendo um sistema e quando coloquei o Else, ou melhor o else já existia, mais só havia uma mensagem dentro dele e eu implementei mais coisas dentro dele.Mais está dando este erro: Erro 91-Object variable or With block variable not set Ele só lê até a mensagem depois disso todfo c´digo que implementei novo ele não lê. E além disso o Vb fica dando erro com o próprio código por exemplo: Set rsCount = Conn.Execute(sql) Lcont = rsCount("CONT") (Ele dá erro no "Conn" pedi para declarar) O que eu quero fazer é o seguinte: todas as lojas que forem pendentes entre no else. Por favor,vocês poderiam me ajudar? aí está uma parte do código: If Retorno = False Then Servicos_Fai.fnGravaTrace 1, 1, "Mensagem: Arquivo não foi movido com sucesso." End If Set MyFile1 = MyFS.GetFile(sPathServicosFai & aArquivos(i) & "_" & Format(Date, "ddmmyyyy") & "_" & Hora) TamArqMovido = MyFile1.Size If TamArqOriginal = TamArqMovido Then Servicos_Fai.Arquivo = sPathServicosFai & aArquivos(i) & "_" & Format(Date, "ddmmyyyy") & "_" & Hora Retorno = True If Retorno <> "" Then Retorno = Servicos_Fai.VerificaSeHeaderExiste(iNivelTrace) If Retorno = True Then Retorno = Servicos_Fai.VerificaSeDetalheExiste(iNivelTrace) If Retorno = True Then Retorno = Servicos_Fai.VerificaSeGradeExiste(iNivelTrace) If Retorno = True Then If G_TransPend = False Then 'Só faz a carga dos Serviços_Fai se todas as transações estiverem Confirmadas Retorno = Servicos_Fai.LimpaServicos_Fai(iNivelTrace, Mid(aArquivos(i), 11, 3), Mid(aArquivos(i), 1, 8)) Retorno = Servicos_Fai.GravaServicosFai(iNivelTrace) 'If L_Loja <> "0000" Then 'L_Loja = Mid(linha, 9, 4) ' Servicos_Fai.fnGravaTrace 1, 1, "Mensagem2: Arquivo com transações Pendentes - L_loja & Dt_mov." Else Servicos_Fai.fnGravaTrace 1, 1, "Mensagem1: Arquivo com transações Pendentes - L_loja & Dt_mov." If Mid(linha, 30, 1) = "P" Then sql = "" sql = "SELECT COUNT(*) AS CONT FROM TRANS_PENDENTE_SAFE " _ & " WHERE IDENT_REG_LOJA = '" & Mid(linha, 9, 4) & "'" _ & " AND DT_MOVIMENTO = '" & Dt_mov & " '" 'Set rsCount = Conn.Execute(sql) 'Lcont = rsCount("CONT") 'Servicos_Fai.fnGravaTrace 1, 1, "Mensagem1: Arquivo com transações Pendentes - L_loja & Dt_mov." End If 'If P = 0 Then ' P = P + 1 'fnGravaTrace 1, iNivelTrace, "--- Lojas com pendência no SAFE ---" 'fnGravaTrace 1, iNivelTrace, " Loja cont-msg - " & L_Loja 'P = P + 1 ' End If If Lcont = "0" Then sql = "" sql = " INSERT INTO trans_pendente_safe (IDENT_REG_LOJA, DT_MOVIMENTO, STATUS_TRANSACAO ) " _ & " VALUES('" & L_Loja & "','" & Dt_mov & "','P')" End If Conn.Execute (sql), , 128 'Servicos_Fai.fnGravaTrace 1, 1, "Mensagem: Arquivo com transações Pendentes - L_loja & Dt_mov." End If End If End If End If End If End If 'Else ' Servicos_Fai.fnGravaTrace 1, 1, "Mensagem: Arquivo origem diferente do arquivo destino." 'End If End If Next If L_Loja <> "" Then sql = "" sql = " DELETE FROM TRANS_PENDENTE_SAFE " _ & " WHERE IDENT_REG_LOJA = '" & Mid(linha, 9, 4) & "'" _ & " AND DT_MOVIMENTO = '" & Dt_mov & "'" Conn.Execute sql, , 128 ' fnGravaTrace 1, iNivelTrace, " sql " & sql ' fnGravaTrace 1, iNivelTrace, " Pendências da loja " & Servicos_Fai.Loja & " no Movto " & Servicos_Fai.DataMovimento & " foram tratadas. " End If GoTo Waiting Exit Sub 'Exit Function Waiting: Servicos_Fai.LiberaConexaoBanco bExecutando = False If bAtivarTimer Then Timer1.Enabled = True End If bProcessando = False Exit Sub 'Exit Function Erro2: Servicos_Fai.fnAbreTrace 1 Servicos_Fai.fnGravaTrace 1, 1, "Servico SAFE: Erro antes de abrir trace" Erro: bExecutando = False bProcessando = False Timer1.Enabled = True Servicos_Fai.fnGravaTrace 1, 1, "Servico SAFE2: Erro " & Err.Number & "-" & Err.Description End Sub 'End Function