在系统退出的时候我想做个备份 Private Sub 退出_Click() Dim SourceFile, DestinationFile SourceFile = "D:\Program Files\Microsoft Visual Studio\VB98\srcfile" ' 指定源文件名。 DestinationFile = "D:\Program Files\Microsoft Visual Studio\VB98\stu.mdb" ' 指定目的文件名。 FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。

Unload Me End Sub 这样写提示路径/文件访问错误。 不知道这样备份行不行，要是可以的话怎么会是错误呢？

首先要把数据库连接关闭。

我这里就没有连接库，怎么关闭？

帮忙吧！

If MsgBox("你是否退出 ？系统将进行自动备份！", vbQuestion + vbOKCancel, "System") = vbOK Then
If db5.State = 1 Then db5.Close
End If
Dim SourceFile, DestinationFile
SourceFile = "D:\Program Files\Microsoft Visual Studio\VB98\srcfile"   ' 指定源文件名。
DestinationFile = "D:\Program Files\Microsoft Visual Studio\VB98\stu.mdb"   ' 指定目的文件名。
FileCopy SourceFile, DestinationFile

db5.State = 1 这里报错了，我不知道该怎样判断数据库是否关闭