I am Arijit,
trying to make an exe for Transfering a database objects to another databse writing the code as follwos.


Dim oPackage As New DTS.Package2
'Dim oConnetion As DTS.Connection2
Dim oStep As Step2
Dim oTask As Task
Dim oCustomTask As TransferObjectsTask2

Try
oStep = oPackage.Steps.[New]
oTask = oPackage.Tasks.[New]("DTSTransferObjectsTask")
oCustomTask = oTask.CustomTask
oPackage.FailOnError = False

With oStep

.Name = "Copy Database design and data"
.ExecuteInMainThread = True

End With

With oTask
.Name = "GenericPackageTask"
End With


With oCustomTask
.Name = "DTSTransferObjectsTask"
.SourceServer = "HOME-SERVER"
.SourceUseTrustedConnection = True
.SourceDatabase = "NORTHWIND"

.DestinationServer = "HOME-SERVER"
.DestinationUseTrustedConnection = True
.DestinationDatabase = "AC"

.CopyAllObjects = True
.IncludeDependencies = False
.IncludeLogins = False
.IncludeUsers = False

.DropDestinationObjectsFirst = True
.CopySchema = True
.CopyData = DTS.DTSTransfer_CopyDataOption.DTSTransfer_ReplaceData

End With

'oStep.TaskName = oCustomTask.Name
oStep.TaskName = oTask.Name
oPackage.Steps.Add(oStep)
oPackage.Tasks.Add(oTask)
oPackage.Execute()

oCustomTask = Nothing
oTask = Nothing
oStep = Nothing
oPackage.UnInitialize()

Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

But an error generating on the follwing line
oCustomTask = oTask.CustomTask
as QueryInterface for interface DTS.CustomTask failed.

Plz give me a solution for this.

Im not going to even attempt to read that code until you put it in code blocks (the button with the # on it in the toolbar)