VB 无法恢复数据库，因为数据库正在使用，所以未能获得对数据库的排它访问权?

[jzmzqj]

刚学习，VB做数据库恢复发现不能恢复，听说版主很强，麻烦看一下，谢谢了
恢复数据库的部分代码
　　Private Sub CmdBackup_Click()
　　Dim S
　　’选择备份数据库按钮时
　　If Option1.Value = True Then
　　S = Dir1.Path & "\" & Date & ".BAK"
　　If Label1.Caption = S Then
　　MsgBox "数据备份卡已存在！", vbExclamation, "提示"
　　Else
　　StrCnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=ss;Data Source=Backup"
　　sql = "backup DATABASE computer TO disk='" & S & "'"
　　StrCnn.Execute (sql)
　　StrCnn.Close
　　MsgBox "数据库备份成功！", vbExclamation, "提示"
　　key = Date & ".BAK"
　　Set itmX = ListView1.ListItems.Add(, , key, 1)
　　End If
　　End If
　　’选择恢复数据库按钮时
　　If Option2.Value = True Then
　　If File1.ListCount <> 0 Then
　　If Label1.Caption <> "" Then
　　StrCnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=ss;Data Source=Backup"
　　


　　sql = "RESTORE DATABASE computer from disk='" & Label1.Caption & "'"
'出错就在以下这一行

　　StrCnn.Execute (sql)
　　StrCnn.Close
　　MsgBox "数据库恢复成功！", vbExclamation, "提示"
　　Else
　　MsgBox "请选择要恢复的数据备份卡！", vbExclamation, "提示"
　　End If
　　Else
　　MsgBox "请选择要恢复的数据备份卡！", vbExclamation, "提示"
　　End If
　　End If
　　End Sub

[Dogfish]

贴错地方了。这是coldfusion版。
帮你找了个源程序：http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=45080&lngWId=1
里面有一个例子。

另外，把错误信息显示出来看看。

[jzmzqj]

谢谢了