VB调用sql server 的数据转换服务(DTS)

先在sql server 的数据转换服务（DTS）中新建DTS包，保存为*.dts文件，VB中调用一下即可。
    注：工程--引用---Microsoft DTSPackage ....选中。
    --------------------------------------------------
     Private Sub RunPackage(ByVal S As String)'S is FileName
     Dim objPackage As DTS.Package2
     Dim objStep As DTS.Step
     Dim objTask As DTS.Task
     Dim objExecPkg As DTS.ExecutePackageTask
    
     'On Error GoTo PackageError
     Set objPackage = New DTS.Package