你可以在本地设置一个本地数据库,当网络不通时使用本地数据库工作,当网络恢复后,两者同步。
不过这样做必须将数据库连接做成实时的,即用的时候连,不用的时候断开。以下是一部分代码:
'数据库是否与服务器连接'服务器连接 1
'本地连接 2
'未连接 0
Public strDataBaseCn As StringPublic Sub DataBaseCn()
    '如果连接失败则连接本地数据库
    On Error GoTo ErrorSub1
    
    '数据库连接值
    Dim strCn As String    '首先连接服务器上的数据库
   
    '服务器名称、用户名称、密码
    strCnServer = "dataserver"
    strUserID = "sa"
    strPasswd = ""
       '连接应用数据库
    Set adoCn = New Connection
    strCn = "Data Source=" & strCnServer & ";Initial Catalog=Dasher;"
    adoCn.Provider = "SQLOLEDB"
    adoCn.Open strCn, strUserID, strPasswd
     
    '连接数据字典库
    Set adoDataCn = New Connection
    adoDataCn.Provider = "SQLOLEDB"
    strCn = "Data Source=" & strCnServer & ";Initial Catalog=WordBook;"
    adoDataCn.Open strCn, strUserID, strPasswd
    
    '连接服务器成功
    strDataBaseCn = "1"
    Exit Sub
 
ErrorSub1:    '如果连接出错,则连接本地数据库
    
    '如果连接本地也不成功,则提示出错
    On Error GoTo ErrorSub2
   
    '库文件名称、密码
    strCnServer = App.Path & "\Cn.MDB"
    strPasswd = ""    '连接应用数据库
    Set adoCn = New Connection
    strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
    adoCn.Provider = "Microsoft.Jet.OLEDB.3.51"
    adoCn.Open strCn, strPasswd
    '库文件名称、密码
    strCnServer = App.Path & "\DataCn.MDB"
    strPasswd = ""
     
    '连接数据字典库
    Set adoDataCn = New Connection
    adoDataCn.Provider = "Microsoft.Jet.OLEDB.3.51"
    strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
    adoDataCn.Open strCn, strPasswd
    
    '连接本地数据库成功
    strDataBaseCn = "2"
    Exit Sub
    
ErrorSub2:
    
    '所有连接失败
    strDataBaseCn = "0"
    MsgBox "服务器和本地数据库均无法连接,请与技术支持人员连接!"
 
End Sub
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★  浏览帖子速度极快![建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录! 
★  支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]