调用金蝶自带组件生成单据编号出错，请老师们进来看下...

我用VB写了一个.EXE工程，调用系统组件生成销售出库单单号，代码如下：-------------------------------------------------------------------------------------------------

Public Function GetBillNo(ByVal pDsn As String, ByVal billTypeID As Long) As String
Dim o As Object
Set o = CreateObject("KEE_BillDataAccess.Savedata")
GetBillNo = o.GetBillNo(pDsn, billTypeID, True)
Set o = Nothing
End Function

-------------------------------------------------------------------------------------------------

如果直接调用这个函数，则直接报错，并提示“未设置对象变量或with block变量”；
可是如果我在调用之前加上调用登录组件的代码时，则可以正常执行。

请问这是怎么回事？如果在不调用登录组件正常运行该代码（因为有些情况，比如写WEBSERVICE接口，调用登录组件会弹出对话框）？
请论坛里的老师给指点下，感谢!!!!