Public Function CaricaPresenti(ByVal ObjSchedinaPs As PropertySchedinePS) As SchedinePSCollection
        Dim SchedinaPSColl As New SchedinePSCollection
        Try
            SqlCmd.CommandText = "GetPresenti"
            SqlCmd.Parameters.Add("@Codalbergo", SqlDbType.Int).Value = ObjSchedinaPs.CodAlbergo
            SqlCmd.Connection = Db
            SqlCmd.CommandType = CommandType.StoredProcedure
            SqlDr = SqlCmd.ExecuteReader
            While SqlDr.Read()
                ObjSchedinaPs = New PropertySchedinePS
                ObjSchedinaPs.NumeroSchedina = SqlDr.GetSqlInt32(0).Value
                ObjSchedinaPs.CodAlloggiato = SqlDr.GetSqlInt32(1).Value
                ObjSchedinaPs.IdComponente = SqlDr.GetSqlInt32(2).Value
                ObjSchedinaPs.CognomeAlloggiato = SqlDr.GetSqlString(3).Value
                ObjSchedinaPs.NomeAlloggiato = SqlDr.GetSqlString(4).Value
                ObjSchedinaPs.DataArrivo = SqlDr.GetSqlDateTime(5).Value
                ObjSchedinaPs.AnnoGestionale = SqlDr.GetSqlInt32(6).Value
                SchedinaPSColl.Add(ObjSchedinaPs)
            End While
            Return SchedinaPSColl
        Catch ex As Exception
            Throw ex
        Finally
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
    End Function