关于MSCHART与数据备份的问题(非常急用.谢谢!)--只有40分了

Question

1。 备份整个数据库，复制数据库就可以了，用filecopy命令。
   FileCopy gsDatabase, sTarget
2。 备份部分表
   先复制数据库，然后将数据库里其余的表删掉。
3.下面是关于mschart的代码，研究一下把Dim Ord As Recordset
Dim sStr As String
Dim achart0(3, 4), achart1(3, 3), achart2(3, 4) As String
Dim i As Integer
Dim nunit As LongSet Ord = goOpen.OpenRecordset("05mont", dbOpenDynaset)
Ord.MoveFirst
'确定金额单位
nunit = 10000With Ord
If .Fields("blastyear") > 1000000 And .Fields("blastyear") < 10000000 Then
   lblmoney(0).Caption = "金额（单位：十万元）"
   lblmoney(1).Caption = "金额（单位：十万元）"
   lblmoney(2).Caption = "金额（单位：十万元）"
   nunit = 100000
End If
If .Fields("blastyear") > 10000000 And .Fields("blastyear") < 100000000 Then
   lblmoney(0).Caption = "金额（单位：百万元）"
   lblmoney(1).Caption = "金额（单位：百万元）"
   lblmoney(2).Caption = "金额（单位：百万元）"
   nunit = 1000000
End If
If .Fields("blastyear") > 100000 And .Fields("blastyear") < 1000000 Then
   lblmoney(0).Caption = "金额（单位：万元）"
   lblmoney(1).Caption = "金额（单位：万元）"
   lblmoney(2).Caption = "金额（单位：万元）"
   nunit = 10000
End If
For i = 0 To 4
     .FindFirst "ncode=" & Trim(CStr(i + 1))
    achart0(0, i) = .Fields("bthismonth") / nunit
    achart0(1, i) = .Fields("blastterm") / nunit
    achart0(2, i) = .Fields("bthisyear") / nunit
    achart0(3, i) = .Fields("blastyear") / nunit
Next i
MSChart1(0).ChartData = achart0
For i = 0 To 3
     .FindFirst "ncode=" & Trim(CStr(i + 6))
    achart1(0, i) = .Fields("bthismonth") / nunit
    achart1(1, i) = .Fields("blastterm") / nunit
    achart1(2, i) = .Fields("bthisyear") / nunit
    achart1(3, i) = .Fields("blastyear") / nunit
Next i
MSChart1(1).ChartData = achart1For i = 0 To 4
     .FindFirst "ncode=" & Trim(CStr(i + 10))
    achart2(0, i) = .Fields("bthismonth") / nunit
    achart2(1, i) = .Fields("blastterm") / nunit
    achart2(2, i) = .Fields("bthisyear") / nunit
    achart2(3, i) = .Fields("blastyear") / nunit
Next i
MSChart1(2).ChartData = achart2
 .Close
End With
Set Ord = Nothing