Hi Iam facing a problem with DTS package. and i was trying to execute the code which u gave in this site

type casting error is coming at this line

 oCustomTask = oTask.CustomTask

full code is below

Dim oPackage As New DTS.Package2()
        Dim oConnection As DTS.Connection
        Dim oStep As DTS.Step2
        Dim oTask As DTS.Task
        Dim oCustomTask As DTS.BulkInsertTask

        Try
            oConnection = oPackage.Connections.New("SQLOLEDB")
            oStep = oPackage.Steps.New
            oTask = oPackage.Tasks.New("DTSBulkInsertTask")
            oCustomTask = oTask.CustomTask
            With oConnection
                oConnection.Catalog = "pubs"
                oConnection.DataSource = "(local)"
                oConnection.ID = 1
                oConnection.UseTrustedConnection = True
                oConnection.UserID = "Tony Patton"
                oConnection.Password = "Builder"
            End With
            oPackage.Connections.Add(oConnection)
            oConnection = Nothing
            With oStep
                .Name = "GenericPkgStep"
                .ExecuteInMainThread = True
            End With
            With oCustomTask
                .Name = "GenericPkgTask"
                .DataFile = "c:\dts\authors.txt"
                .ConnectionID = 1
                .DestinationTableName = "pubs..authors"
                .FieldTerminator = "|"
                .RowTerminator = "\r\n"
            End With
            oStep.TaskName = oCustomTask.Name
            With oPackage
                .Steps.Add(oStep)
                .Tasks.Add(oTask)
                .FailOnError = True
            End With
            oPackage.Execute()

        Catch ex As Exception
            MsgBox("Error: " & CStr(Err.Number) & vbCrLf _
        & Err.Description, vbExclamation, oPackage.Name)
        Finally
            oConnection = Nothing
            oCustomTask = Nothing
            oTask = Nothing
            oStep = Nothing
            If Not (oPackage Is Nothing) Then
                oPackage.UnInitialize()
            End If
        End Try


PLZ help me out of this, iam struggling a lot with this error....plz give me suggestion

Regards

hari


Hari
Sr Sw Engg
SAP India-Bangalore