KIS专业版登录窗口的调用

'装载KIS专业版的登录窗口
Dim oLogin As Object
Dim lngRet As Long
Dim sAcct As String

'注意工程先引用 KISGlobal
KISGlobal.Initialize
Set oLogin = CreateObject("KISLogin.clsLogin")
lngRet = oLogin.Login("super", "主控台", True)
ConnectString = oLogin.PropsString

Dim arrTmp() As String
arrTmp = Split(ConnectString, "}")
arrTmp = Split(arrTmp(0), "{")
ConnectString = arrTmp(1)

KISConnection.ConnectionString = ConnectString
KISConnection.Open




kisglobal.Initialize
Dim oLogin As Object ,ps As Object ,glv As Object,kbf As Object
set oLogin = CreateObject("KISLogin.clsLogin")
If ologin.Login("super", "主控台", True) = 0 Then Exit Sub
set ps = CreateObject("KISPropsMgr.ShareProps")
Call ps.AddProperty(0, "PropsString", ologin.PropsString) '如无此句则最后一句报错，无效的过程调用参数
set glv = CreateObject("KISEBCGLView.GLView")
set kbf = CreateObject("KISVBF.ReturnCollection")
set kbf = glv.ItemLookup(2) '能显示出核算项目中的部门窗口，双击返回值也正确，但新增修改都会出现无效的过程调用或参数！