PequeLi

alguém pode me ajudar a solucionar este probleminha :) Ele faz uma busca pelo codigo informado, e cola as informações em outra sheets, porém não sei o que estou fazendo de errado que ele não esta buscando.. alguém me ajuda, Por Favor! Sub CNS() 'Call desproteger Dim Linha As String 'Dim cxch As String 'define de onde buscar o registro: cxch = Sheets("ESTRUTURA").Range("B14").Value 'Call Limpar 'nestes abaixo segue o mesmo de cima, só que o filtro pegará apenas os 20 primeiros eventos: Dim Db2 As Database Dim RSt2 As Recordset Set Db2 = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0") Set RSt2 = Db2.OpenRecordset("SELECT top 2 Consultor FROM [testes$] WHERE Chavecod = '" & cxch & "'") 'define em qual linha começar: Linha = 22 'enquanto não houver erro: While Not RSt2.EOF Linha = Linha + 1 Sheets("Consulta").Select Cells(Linha, 4) = RSt2("Consultor") 'Cells(Linha, 5) = RSt2("Nome_Fantasia") 'Cells(Linha, 7) = RSt2("Vlr_Bruto") 'Cells(Linha, 9) = RSt2("transações") RSt2.MoveNext Wend 'fecha o banco RSt2.Close Db2.Close MsgBox "Busca Realizada", vbInformation, "Informação" End Sub