vb调用K3接口

现在我们有一个项目，他们公司用的K3的财务软件，现在我们有些业务想实时的调用K3的财务凭证，所以我们尝试用vb来调用k3凭证接口，来达到新增凭证，默认是凭证的审核状态，由于我都VB之前都不是很了解，请各位大侠只能我一下
Private Sub Command1_Click()
    Dim voucher As New KFO.Dictionary
    Dim GlData As New EBCGLView.GlData
    Dim GLView As New EBCGLView.GLView
    Dim dtvect As KFO.Vector
    Dim Dt As KFO.Dictionary
    Dim obj As ADODB.Recordset
    Dim ReturnCollection As Object
    'vchdate = DateSerial(GlData.SystemProfile.GLGetCurrentYear, GlData.SystemProfile.GLGetCurrentPeriod, 1)
    vchdate = DateSerial(2009, 12, 1)
    voucher("FDate") = vchdate
    voucher("FGroup") = "记"
    voucher("FNumber") = Val(111)
   
    Dim voucherentry As New KFO.Vector
    Dim tempentry As New KFO.Dictionary
   
    'Set tempentry = New KFO.Dictionary
    tempentry("FExplanation") = "凭证录入检测-分录1"
    tempentry("FAccountID") = 1014
    tempentry("FCurrencyID") = 1
    tempentry("FDC") = 1
    te