I am using DAL+ methode to crete a module code but I got the folowing error on get function :

Object reference not set to an instance of an object.

I have  file on my APP_Code folder module called EmissionController.vb as controller and a file under the DesktopModules folder ListEmission.ascx.vb for listing the emissions and i want get just one emission by GetEmissionHoraire methode

in my  EmissionController.vb.vb I put the following code for the get methode ***

 Public Function GetEmissionHoraire(ByVal horaireID As Integer, ByVal moduleId As Integer) As EmissionHoraireInfo

            Return CType(CBO.FillObject(DotNetNuke.Data.DataProvider.Instance().ExecuteScalar("EmissionHoraireGet", horaireID, moduleId), GetType(EmissionHoraireInfo)), EmissionHoraireInfo)

        End Function

in my EmissionHoraireInfo.vb I put the following code for the get methode ***

            Dim EmissionController As New EmissionController

            Dim EmissionHoraireInfo As New EmissionHoraireInfo

            Dim emissionHoraireItem As EmissionHoraireInfo = EmissionController.GetEmissionHoraire(HoraireID, ModuleId)

            Label1.Text = emissionHoraireItem.HeureDebut
            Label2.Text = emissionHoraireItem.HeureFin
            Label3.Text = emissionHoraireItem.JourSemaine

please for those who have a large experience to deal with DAL+ tell me where is the problem in my code and thank you

I change My code as folowing :

Public Function GetEmissionHoraire(ByVal horaireID As Integer, ByVal moduleId As Integer) As EmissionHoraireInfo

            Return CBO.FillObject(Of EmissionHoraireInfo)(CType(DotNetNuke.Data.DataProvider.Instance().ExecuteReader("EmissionHoraireGet", horaireID, moduleId), IDataReader))

        End Function

but this time i got the same error , pleeeeeeeeeeeeeeeeease help me how can I do a get in to an one record with an DAL+ methode 

Resolved , firsty I thank all those intersting on this topic the folowing code has been fixed the problem :

Public Shared Function GetHoraireEmission(ByVal horaireID As Integer, ByVal moduleId As Integer) As EmissionHoraireInfo
            Dim EmissionHoraireInfo As EmissionHoraireInfo = New EmissionHoraireInfo
            Using dr As IDataReader = DotNetNuke.Data.DataProvider.Instance().ExecuteReader("HoraireEmissionsGet", horaireID, moduleId)
                While dr.Read
                    EmissionHoraireInfo.HoraireID = Convert.ToInt32(dr("HoraireID"))
                    EmissionHoraireInfo.ModuleID = Convert.ToInt32(dr("ModuleID"))
                    EmissionHoraireInfo.EmissionID = Convert.ToInt32(dr("EmissionID"))
                    EmissionHoraireInfo.HeureDebut = Convert.ToString(dr("HeureDebut"))
                    EmissionHoraireInfo.HeureFin = Convert.ToString(dr("HeureFin"))
                    EmissionHoraireInfo.JourSemaine = Convert.ToString(dr("JourSemaine"))
                    EmissionHoraireInfo.JourSemaine = Convert.ToString(dr("ImagePath"))

                End While
            End Using
            Return EmissionHoraireInfo
        End Function

hope this help someone