[5分]请教：这种特殊的连接方式怎样实现共享？

问题已解决。谢谢大家的关心！我这样连接的好处是，不像拆分的链接表那样，当想复制整个文件夹时连接不上，还要想其它办法。谨请专家提出您的保贵意见。

Public Sub 连接() '连接时用

Dim MYDATA As String
    MYDATA = "Provider = 'MICROSOFT.JET.OLEDB.4.0';DATA SOURCE='\\XXC\access\XXC后台.mdb';USER ID='ADMIN';PASSWORD='';"
Set CNN = New ADODB.Connection  
  CNN.Open MYDATA

另有以下修改：
Public Function 保存记录()

 Call 当前窗体资料

 Screen.ActiveForm.Requery '一定要添加此句,否则当只修改主窗体且光标没移动到子窗体中时就会出错!!!!!!