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

VB 无法恢复数据库，因为数据库正在使用，所以未能获得对数据库的排它访问权?
刚学习，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 

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

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