'**********************************************************************

' Visual Basic ActiveX Script

'************************************************************************

Function Main()

Dim strExecPkgTask'Execute Package Task Name

strExecPkgTask = "DTSTask_DTSDataPumpTask_1"

Call SetPackageParams(DTSGlobalVariables.Parent.Tasks(Cstr(strExecPkgTask)).CustomTask)

Main = DTSTaskExecResult_Success

End Function

Sub SetPackageParams(objPkg)

msgbox(objPkg.RowsComplete)

End Sub

try this one it will show you the rowsaffected