Public Class GestoreStampe
    Private Rap As New GestoreDataset
    Private MyTable As DataTable
    Private MyRow As DataRow
    Private Ds As DataSet = New DataSet
    Public Function AnteprimaRapporto(ByVal CodAlb As Integer, ByVal codice As String) As DataSet
        Try
            SqlCmd.CommandText = "GetArc_Trasm1"
            SqlCmd.Parameters.Add("@CodAlbergo", SqlDbType.Int).Value = CodAlb
            SqlCmd.Parameters.Add("@Codice", SqlDbType.VarChar).Value = codice
            SqlCmd.CommandType = CommandType.StoredProcedure
            SqlDr = SqlCmd.ExecuteReader
            MyTable = Rap.RapportoTrasm    qui mi ricrea di nuova la tabella ex-nuova quindi salva sempre l'ultimo record
            If SqlDr.Read Then
                MyRow = MyTable.NewRow
                MyRow("CodAlb") = SqlDr.GetSqlInt32(0).Value
                MyRow("Codice") = SqlDr.GetSqlString(1).Value
                MyRow("Data_elaborazione") = SqlDr.GetSqlDateTime(2).Value
                MyRow("Descrizione") = SqlDr.GetSqlString(3).Value
                MyTable.Rows.Add(MyRow)
            End If
            Ds.Tables.Add(MyTable)
        Catch ex As Exception
            Throw ex
        Finally
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
        Return Ds
    End Function
End Class