Dim p As New DTS.Package2
p.LoadFromSQLServer(".", "sa", "1", DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, "", "", "", "dts_old", "")
Dim t As DTS.Task
Dim ct As DTS.DataPumpTask2
t = p.Tasks.Item(2)
ct = t.CustomTask
ct.SourceSQLStatement = ct.SourceSQLStatement.Replace("tcyc_data_old", "tcyc_data")