这是我往一个access数据库中添加数据的按钮的源码，现在想再添加一个功能，就是在添加成功后复制该数据库到某一固定位置（如c:\），这个功能该怎么写呢？



Private Sub Command1_Click()
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=123"
    ' 下面的语句使用了Connection对象的Execute方法执行了INSERT语句。
    cn.Execute "INSERT INTO admin([Username],[Division],[Password]) VALUES ('" & Text2.Text & "','" & Text1.Text & "','123456')"

    MsgBox ("添加数据成功！")
    cn.Close
    Set cn = Nothing
 Adodc1.Refresh
 DataGrid1.Refresh
    Text1.Text = ""
    Text2.Text = ""
                          <----添加到这里。 fso.CopyFile App.Path & "\Data.mdb", "c:\data.mdb" 会报错，filecopy App.Path & "\Data.mdb", "c:\data.mdb" 也会报错。

End Sub