[Resolvido]Dados incompatíves

Olá pessoal, uso o código abaixo para buscar uma informação em uma consulta.
Precisei alterar o tipo de dados do campo "CódigoDoProduto" de 'auto numeração' para 'texto' quando fiz essa alteração ficou dando um erro de dados incompatíveis.

O código está no evento ao clicar da caixa de listagem do formulário pesquisa.

'CÓDIGO USADO:
Dim db As DAO.Database
   Dim rst As DAO.Recordset
   Dim nSQL As String
   
   nSQL = "SELECT Estoque FROM Cs_Estoque WHERE CódigoDoProduto =" & Me.ltxListaProdutos
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset(nSQL)
   
        If Not rst.BOF Then
              Me.txt_Estoque = rst!ESTOQUE
        End If
   
   rst.Close
   Set rst = Nothing
   db.Close
   Set db = Nothing  


Segue o exemplo:

Avelino, muito obrigado.
Resolveu direitinho.