vb调用K3接口解决方案(2)

'Set ReturnCollection = GLView.ItemLookup(obj('FItemClassID')) 
        Set Dt = New KFO.Dictionary 
        'Dt('FItemClassID') = ReturnCollection.ReturnObject.ItemClassID 
        'Dt('FItemID') = ReturnCollection.ReturnObject.ItemID 
        dtvect.Add Dt 
        obj.MoveNext 
    Next i 
    Set tempentry('_Details') = dtvect 
    voucherentry.Add tempentry 
    
    Set voucher('_Entries') = voucherentry 
    
    Dim cre As Object, voucherid As Long 
    Set cre = CreateObject('EBSGLVoucher.VoucherUpdate') 
    voucherid = cre.Create(k3login.PropsString, voucher) 
    Set cre = Nothing 
    
End Sub

报错的是这句Set obj = GlData.GetAccountItem(1014) ，报的错是没有发现数据源名称且没有制定默认驱动程序，大哥们，急啊！ 
------解决方案--------------------
也可以直接向财务数据库写入凭证记录
------解决方案--------------------
没有连上数据库吧,直接连数据库,写入新凭证不行吗
------解决方案--------------------
Dim GlData As New EBCGLView.GlData 
从这里切入,分析这个EBCGLView.GlData对象连接数据库的状态