ERRO: TIPO DE DADOS IMCOMPATIVEL NA EXPRESSAO DO CRITERIO

[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