Erro com passar parametro para componente

    Protected Sub btnPesquisa_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPesquisa.Click
        Dim strSQL As String = "SELECT DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto) AND (MERCADOLOGICO3=12 OR MERCADOLOGICO3=13 OR  MERCADOLOGICO3=14 OR MERCADOLOGICO=19)"
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\126.0.0.87\Pagina_ASP\Dados\databsp.mdb")
        Dim cmd As New OleDbCommand(strSQL, conn)
        Dim Leitor As OleDbDataReader

        cmd.Parameters.Add(New OleDbParameter("@Produto", edtCodProduto.Text))

        conn.Open()

        Leitor = cmd.ExecuteReader  <-- aki dá o erro 

        Leitor.Read()

        If Leitor.HasRows Then
            lblDescProd.Text = Leitor("DESCRICAO_COMPLETA")
        Else
            MsgBox("O valor digitado " + edtCodProduto.Text + " não é um código de celular válido.", MsgBoxStyle.OkOnly Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.Exclamation, "Erro")
            edtCodProduto.Text = ""
            lblDescProd.Text = "O valor digitado " + edtCodProduto.Text + " não é um código de celular válido."
        End If

        Leitor.Close()
        conn.Close()

    End Sub