I post it the same question in the SQL Server side, I just did not know where to post it. I am in really need of getting some answer.
I have read many articles to try to fix an error that I am having after converting a DTS packages that was save in VB 6 and later converted into VB .NET

On one article that I read it said that I need it to get SQL Server service Pack 3 for the server and also Service Pack 3 for desktop.
After doing all that I am still having the same problem. I have been struggling with this for quite a while. I am going to post more code to see if it help:



System.InvalidCastException has ocurred at XXXXXX.exe
Specifically in the code at:
oCustomTask1 = oTask.CustomTask
QueryInterface for interface DTS.CustomTask failed

On one article that I read it said that I need it to get SQL Server service Pack 3 for the server and also Service Pack 3 for desktop.
After doing all that I am still having the same problem. I have been struggling with this for quite a while. I am going to post more code to see if it help:

Public Sub Task_Sub1(ByVal goPackage As DTS.Package2)
        Dim DTS As Object

        Dim oTask As DTS.Task
        Dim oLookup As DTS.Lookup
        Dim oCustomTask1 As DTS.DataPumpTask2
        oTask = goPackage.Tasks.New("DTSDataPumpTask")
        oCustomTask1 = oTask.CustomTask (ERROR)


        oCustomTask1.Name = "Copy Data from BOL_CLEVELAND_FINAL to [Marketing].[dbo].[BOL_CLEVELAND_FINAL1] Task"
        oCustomTask1.Description = "Copy Data from FINAL to [Mark].[dbo].[FINAL1] Task"
        oCustomTask1.SourceConnectionID = 1
        oCustomTask1.SourceSQLStatement = "select `Field5`,`Field2`,`ACCOUNT,`INDEX` from `FINAL`"
        oCustomTask1.DestinationConnectionID = 2
        oCustomTask1.DestinationObjectName = "[Mark].[dbo].[FINAL1]"
        oCustomTask1.ProgressRowCount = 1000
        oCustomTask1.MaximumErrorCount = 0
        oCustomTask1.FetchBufferSize = 1
        oCustomTask1.UseFastLoad = True
        oCustomTask1.InsertCommitSize = 0
        oCustomTask1.ExceptionFileColumnDelimiter = "|"
        oCustomTask1.ExceptionFileRowDelimiter = vbCrLf
        oCustomTask1.AllowIdentityInserts = False
        oCustomTask1.FirstRow = 0
        oCustomTask1.LastRow = 0
        oCustomTask1.FastLoadOptions = 2
        oCustomTask1.ExceptionFileOptions = 1
        oCustomTask1.DataPumpOptions = 0

        Call oCustomTask1_Trans_Sub1(oCustomTask1)
        goPackage.Tasks.Add(oTask)
         oCustomTask1 = Nothing
                oTask = Nothing

    End Sub