VB中调用DTS模块报错

Question

建好DTS包后保存为BAS，在工程中引用DTS，然后
窗体中写代码dim   opkg   as   DTS.package2
set   opkg=new     DTS.package2opkg.LoadFromSqlServer   "(local)",,,DTSSQLStgFlag_UseTrustedConnection,,,,"DTS_1.bas"
opkg.Execute
opkg.UnInitialize
set   opkg=nothing 'DTS_1.bas为引入的模块DTS包名运行后报错：
----指定的DTS包（'名称'='DTS_1.bas':ID VersionID= {[未指定]}.{[未指定]})不存在。
到底什么意思啊，少了什么？

Answer 1

你的包保存为 .bas 文件，可以直接添加到vb里，把sub main()函数名改为其他的函数名，然后调用那个函数就行了

Answer 2

说错了，可以不改sub main 函数名，不过得把它声明为Public的（直接把前面的Private关键字去掉），然后直接调用 main函数就可以

Answer 3

可能是存为.bas这种格式的DTS包不能用这种方法调用吧

Answer 4

可以不改sub main 函数名，不过得把它声明为Public的（直接把前面的Private关键字去掉），然后直接调用 main函数就可以这样做可以吗?我怎么不行啊,我把Private改为Public了又在其他过程里调用,程序是可以执行的,但执行没有结果,数据还是没有导进去啊!
请帮我看看是出了什么问题?