VB如何调用已经建立好的DTS，excel导入SQL2000，急，在线等

Question

VB如何调用已经建立好的DTS，excel导入SQL2000，急，在线等，DTS在企业管理器运行没问题，
但用程序调用时，运行没错误，可是数据库里面没有插入记录。
代码：Dim rs As New ADODB.Recordset
Dim i As Integer
Dim strSQL1 As String   Dim objpackage
Set objpackage = CreateObject("dts.package2")
objpackage.LoadFromSQLServer "172.31.2.32", "itsa", "sa1234", DTSSQLStgFlag_Default, , , , "Optical"
objpackage.Executeobjpackage.UnInitialize
Set objpackage = Nothing
End Sub

Answer 1

这样改
    Dim oPackage As DTS.Package
    Set oPackage = New DTS.Package
    oPackage.LoadFromSQLServer "172.31.2.32", "itsa", "sa1234", DTSSQLStgFlag_Default, , , , "package包名"
    oPackage.Execute