请帮忙看看关于表格两次保存的问题，谢谢

Question

我用数据库建立了mshflexgrid表与text相连，当text里有改动时，改完了我把text表里的内容发送到了mshflexgrid表中了，我想建一保存按钮，把表格中的内容保存两次，一次是保存原来的表中的数值，一份是保存修改过的表格中的值
请问
这个怎么实现
请帮我详细写写，因初学，想学的仔细些
谢谢

Answer 1

嗯
那我说详细一点
这样吧
我把代码贴上来
Private cnn As New ADODB.Connection
Private cm As New ADODB.Command
Private RSt As New ADODB.Recordset
Private MsgText As String
Private mySQL  As StringPrivate Sub cmdset_Click()
    Dim modsql As String
    On Error GoTo errhandler
    modsql = "UPDATE monitor SET CHNO =' " _
            & Trim(Text3(0).Text) & "',Designation =" _
            & Trim(Text3(1).Text) & "',DATA = " _
            & Trim(Text3(2).Text) & "',ALL = " _
            & Trim(Text3(3).Text) & "',ALH = " _
            & Trim(Text3(4).Text) & "',UNIT = " _
            & Trim(Text3(5).Text) & "',MIN = " _
            & Trim(Text3(6).Text) & "',MAX = " _
            & Trim(Text3(7).Text) & "',GLL = " _
            & Trim(Text3(8).Text) & "',GLH = " _
            & Trim(Text3(9).Text) & "' WHERE "
            modsql = modsql & "CHNO = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
            modsql = modsql & " AND Designation = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
            modsql = modsql & " AND DATA =' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
            modsql = modsql & " AND ALL =' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
            modsql = modsql & " AND ALH = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
            modsql = modsql & " AND UNIT =' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)
            modsql = modsql & " AND MIN = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6)
            modsql = modsql & " AND MAX =' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 7)
            modsql = modsql & " AND GLL = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8)
            modsql = modsql & " AND GLH = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 9)
        ExecuteSQL modsql, MsgText
'        cnn.Execute modSql
    'ﾏﾔﾊｾｸ・ﾂ
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) = Text3(0).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = Text3(1).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) = Text3(2).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3) = Text3(3).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4) = Text3(4).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) = Text3(5).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6) = Text3(6).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 7) = Text3(7).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8) = Text3(8).Text
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 9) = Text3(9).Text
    Exit Sub
errhandler:
    MsgBox Err.Description
End Sub
上面这段呢是我把在text中改动的数据更新到mshflexgrid表中了，现在我想拉一个save按钮，把改动好的表中的数据保存起来，这个怎么办呀？
然后我还想保存两份，一份保存最原始的没经过改过的数据，另一份准备保存已重新改动过的数据，也就是覆盖过的新数据，这个怎么办呢？？
谢谢指教：)

Answer 2

upup
拜托拜托
我查了有关的书
也做了一些改正
可是还是不行
求助：)

Answer 3

upup
请帮忙
很感谢很感谢