大虾、小虾请进！！！！！！！

Question

我在Document_New()，Document_Open()这两个过程中都写了
Private Sub Document_New()
    '-----
    CommandBars("²¡ÈËÐÅϢ¼Èë").Enabled = True
    bx.Show
    Set dyndll = New plink.clsdll
    lbe = dyndll.Connect("dzb", "", "")
    If Not lb Then Exit Sub
    lbe = dyndll.dbtype("ACCESS")
    'dyndll.Sh
    'UserForm1.Show
End SubPrivate Sub Document_Open()
    '-----
   CommandBars("²¡ÈËÐÅϢ¼Èë").Enabled = True
   
   'UserForm1.Show
   bx.Show
   Set dyndll = New plink.clsdll
    lbe = dyndll.Connect("dzb", "", "")
    If Not lb Then Exit Sub
    lbe = dyndll.dbtype("ACCESS")
End Sub

Answer 1

　TO：heyijpn(小何)　
我在Document_New()，Document_Open()这两个过程中都写了，可我在某个WORD宏中，想调用DLL中的其它函数时，还要再给连接数据源、判断数据源类型付值，否则提示错误

Answer 2

同意　dzbswl(白雪儿)　可以给分了

Answer 3

：　wbdx(碳离子)
你是说我可以给　　heyijpn(小何)　分了吗？