Dim oPackage As New DTS.Package2()
Dim oConnection As DTS.Connection2
Dim oStep As DTS.Step2
Dim oTask As DTS.Task
Dim oCustomTask As DTS.TransferObjectsTask2
 
Try
oStep = oPackage.Steps.New
oTask = oPackage.Tasks.New("DTSTransferObjectsTask") *** was soll hier stehen? _
  Name des dts-packages? ***
oCustomTask = oTask.CustomTask
oPackage.FailOnError = False
 
With oStep
.Name = "Copy Database design and data" *** Name?***
.ExecuteInMainThread = True
End With
 
With oTask
.Name = "GenericPkgTask"
End With
 
With oCustomTask
.Name = "DTSTransferObjectsTask" *** auch wieder Name des dts-packages???***
.SourceServer = "Office1" *** sollte klar sein ***
.SourceUseTrustedConnection = True
.SourceDatabase = "pubs" *** sollte klar sein ***
.DestinationServer = "Office1" *** sollte klar sein ***
.DestinationUseTrustedConnection = True
.DestinationDatabase = "pubs2" *** sollte klar sein ***
.CopyAllObjects = True
.IncludeDependencies = False
.IncludeLogins = False
.IncludeUsers = False
.DropDestinationObjectsFirst = True
.CopySchema = True
.CopyData = DTS.DTSTransfer_CopyDataOption.DTSTransfer_ReplaceData
End With
 
oStep.TaskName = oCustomTask.Name
oPackage.Steps.Add(oStep)
oPackage.Tasks.Add(oTask)
oPackage.Execute()
 
Catch ex As Exception
MsgBox("Package failed error: " & CStr(Err.Number) &_
vbCrLf & Err.Description & vbCrLf, vbExclamation, oPackage.Name)
 
Finally
oCustomTask = Nothing
oTask = Nothing
oStep = Nothing
oPackage.UnInitialize()
 
End Try