vb的数据备份问题

这是备份access的原代码
Private Sub databasebak_Click()
Dim fsofile
conn.Close
Set conn = Nothing
Set fsofile = CreateObject("scripting.filesystemobject")
CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb"
CommonDialog1.ShowSave
fsofile.copyfile App.Path & "\house.mdb", CommonDialog1.FileTitle
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=" & App.Path & "\house.mdb"
conn.Open connectionstring
End Sub
----------------
可以正常备份 但是不能按取消键 否则会报“实时错误5 无效的调用或参数
fsofile.copyfile App.Path & "\house.mdb", CommonDialog1.FileTitle显示这句话有问题 请问是怎么回事 能解决还可以加分 先谢谢了
就是点击按钮后进行数据库备份 用到了一个CommonDialog控件

关于数据备份的问题 vb这样实现数据备份 VB窗体数据的问题 vb 的数据选择问题 vb 接收数据的问题 瑞星杀毒软件的 数据备份的问题 关于用ghost备份数据的问题 关于邮件服务器数据备份的问题。 无法备份数据问题 电脑数据备份问题