做到数据库还原问题时出现一个问题,
“因为数据库正在使用,所以未能获得对数据库的排它访问权“
　　请问这个该怎么解决呀,

我的代码如下:
Private Sub cmdRestore_Click()
On Error GoTo err1
If cboFile.text <> "" Then
cn.Execute ("use master")
cn.Execute "restore database [comSys] from disk='" & App.Path & "\BackUP\" & cboFile.text & "'"

MsgBox "数据库还原成功!", vbOKOnly + vbInformation, "还原数据库"
cboFile.text = ""
Check1.Value = 0
Else
MsgBox "请选择备份文件！", vbOKOnly + vbInformation, "还原数据库"
End If
Exit Sub
err1:
If Err = -2147217900 Then
MsgBox "数据库正在使用.所以不能获得对数据库的排它访问权。" & vbCrLf & vbCrLf & "数据库还原失败！", vbOKOnly + vbInformation, "还原数据库"
cboFile.text = ""
Check1.Value = 0
Else
MsgBox "未知错误,数据库还原失败！", vbOKOnly + vbInformation, "还原数据库"
End If
End Sub