我做了一个数据工程，在里面需要备份一个数据库，但是一执行就有这个错误出现，请问各位这个问题该怎么解决，得先关了数据库的联接，但是怎么关啊，先行谢过！

你打开的数据库没有关闭。
rs.Close '关闭数据库
con.Close


－－－－－－－－－－－－－－－－－－－－
或用这个方法来备份数据库，我个人认为很好，可以选择目录输入文件名绕过了实时错误 70 没有权限 这个错误提示。

Private Sub Command6_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler

With CommonDialog1
.DialogTitle = "备份数据库"
.CancelError = False
.Flags = cdlOFNHideReadOnly
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "数据库文件 (*.mdb)|*.mdb"

.ShowSave
End With

CopyFile App.Path + "\动态管理库.MDB", CommonDialog1.FileName, 1
MsgBox "备份完毕", vbOKOnly, "确认信息"

errhandler:
Exit Sub

End Sub