Imports System.Data.SqlClient
Public Class Stampe
    Private Da As New SqlDataAdapter
    Public Function AnteprimaReport(ByVal ObjArcTrasm As PropertyArcTrasm, ByVal codice As Integer) As DataSet
        Dim Ds As New DataSet
        Try
            SqlTrans = Db.BeginTransaction
            SqlCmd.Transaction = SqlTrans
            SqlCmd.CommandText = "InsC59"
            SqlCmd.Parameters.Add("@CodAlbergo", SqlDbType.Int).Value = ObjArcTrasm.CodAlbergo
            SqlCmd.Parameters.Add("@Nschedina", SqlDbType.VarChar).Value = ObjArcTrasm.CodiceFile
            Da = New SqlDataAdapter(SqlCmd.CommandText, Db)   REM non so se è giusto scrivere così
            SqlTrans.Commit()
        Catch ex As Exception
            SqlTrans.Rollback()
            Throw ex
        Finally
            Da.Fill(Ds, "RapportoTrasm")
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
        Return Ds
    End Function
End Class