Estou fazendo uma consulta com ado e sql e nao esta dando ceto =/

Private Sub Command5_Click()
 Dim Mensagem As String
 Dim dado As Long
 Dim Consulta_SQL As Double
 Dim Resultado As String
 Dim teste As Currency
 Consulta_SQL = 0
 
 ''On Error Resume Next
  dado = InputBox("Informe o Código do Produto")
Consulta_SQL = "SELECT * FROM Produtos WHERE Codigo_Pro = '" + dado + "';"

                 Set pesquisa = b.OpenRecordset(Consulta_SQL, dbOpenSnapshot)
              
   
                 Mensagem = "Posição retornada por Pesquisa.AbsolutePosition = " + _
          Str(pesquisa.AbsolutePosition)

 

 

O type mistach da erro naquela linha sublinhada

Alguem pode me ajudar?

 

Diogo,

 

Ele simplesmente tratou o dado recebido como número.

antes estava ... '"" & dado & "'"  --> tratamento de STRING = TEXTO

agora ficou: " & dado               --> tratamento de número