I have a problem to create a new info object to return result of storedprocedure

Where is the error.?

"Value of Type  System.Collections.ArrayList cannot be converted  To CasaSoft.DNN.Modules.Parceria.Business.EmpresaClienteInfo"

This error is in  (parceriacontroller.vb)

Public Function ListClienteParceria(ByVal CPA_PARCERIA As Integer) As EmpresaParceriaInfo

Return CType(CBO.FillCollection(DataProvider.Instance().ListCasaSoft_ClienteParceria(CPA_PARCERIA), GetType(EmpresaParceriaInfo)), EmpresaParceriaInfo)

End Function

follow the others declaration.

DataProvider.vb

Public MustOverride Function ListCasaSoft_ClienteParceria(ByVal CPA_PARCERIA As Integer) As IDataReader

SQLDataProvider.vb

Public Overrides Function ListCasaSoft_ClienteParceria(ByVal CAP_PARCERIA As Integer) As IDataReader

Return CType(SqlHelper.ExecuteReader(ConnectionString, DatabaseOwner & ObjectQualifier & "CasaSoft_ClienteParceriaList", CAP_PARCERIA), IDataReader)

End Function

EmpresaClienteInfo.vb

Imports System

Imports System.Collections

Imports System.Configuration

Imports System.Data

Namespace CasaSoft.DNN.Modules.Parceria.Business

Public Class EmpresaParceriaInfo

#Region "Private Members"

Dim _CPA_CODIGO As Integer

Dim _CPA_CLIENTE As Integer

Dim _CPA_PARCERIA As Integer

Dim _MEM_RAZAO_SOCIAL As String

#End Region

#Region "Public Properties"

Public Property CPA_CODIGO() As Integer

Get

Return _CPA_CODIGO

End Get

Set(ByVal Value As Integer)

End Set

End Property

Public Property CPA_CLIENTE() As Integer

Get

Return _CPA_CLIENTE

End Get

Set(ByVal Value As Integer)

End Set

End Property

Public Property CPA_PARCERIA() As Integer

Get

Return _CPA_PARCERIA

End Get

Set(ByVal Value As Integer)

End Set

End Property

Public Property MEM_RAZAO_SOCIAL() As String

Get

Return _MEM_RAZAO_SOCIAL

End Get

Set(ByVal Value As String)

End Set

End Property

#End Region

End Class

End Namespace

you have this:

Public Function ListClienteParceria(ByVal CPA_PARCERIA As Integer) As EmpresaParceriaInfo

Return CType(CBO.FillCollection(DataProvider.Instance().ListCasaSoft_ClienteParceria(CPA_PARCERIA), GetType(EmpresaParceriaInfo)), EmpresaParceriaInfo)

End Function

but it really should be this:

Public Function ListClienteParceria(ByVal CPA_PARCERIA As Integer) As EmpresaParceriaInfo

Return CType(CBO.FillObject(DataProvider.Instance().ListCasaSoft_ClienteParceria(CPA_PARCERIA), GetType(EmpresaParceriaInfo)), EmpresaParceriaInfo)

End Function