一個ACCESS數(shù)據(jù)庫數(shù)據(jù)傳遞的方法

一直以來，ACCESS數(shù)據(jù)庫中的申報數(shù)據(jù)在分公司與總公司之間傳遞，用EXCEL或DBASE、TXT甚至ACCESS等格式，我總覺得不太理想。最近看了一本書，不經(jīng)意間發(fā)現(xiàn)了一個方法，使用ACCESS數(shù)據(jù)庫生成申報數(shù)據(jù)與讀入數(shù)據(jù)似乎簡單了不少，特拿出來與大家分享。同時，也希望能得到更多的指點。
    附上示例：
    Sub Mwrite()
    On Error GoTo thiserr
    Dim rs As New ADODB.Recordset
    rs.Open "dlmd", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, acTable
    rs.Save "a:\dlmd.adtg", adPersistADTG
    rs.Close
    Set rs = Nothing
    thisexit:
    Exit Sub
    thiserr:
    MsgBox Err.Description
    Resume thisexit
    End Sub
    Sub Mread()
    On Error GoTo Merr
    Dim i As Integer
    Dim rsDe As New ADODB.Recordset
    Dim rsSo As New ADODB.Recordset
    rsSo.Open "a:\dlmd.adtg", "provider=mspersist"
    rsDe.Open "dlmd", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, acTable
    Do Until rsSo.EOF
    rsDe.AddNew
    For i = 0 To rsSo.Fields.Count - 1
    rsDe.Fields(i) = rsSo.Fields(rsDe.Fields(i).Name)
    Next i
    rsDe.Update
    rsSo.MoveNext
    Loop
    rsSo.Close
    rsDe.Close
    Set rsSo = Nothing
    Set rsDe = Nothing
    Mexit:
    Exit Sub
    Merr:
    MsgBox Err.Description
    Resume Mexit
    End Sub