关于SQL Server数据库的恢复问题！

我想在后台做一个数据库恢复的功能，代码如下：
Sub restore()
response.Write conn.state '测试为1
response.Write("<br>")
conn.close
response.Write conn.state '测试为0
Set conn=nothing
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="driver={sql server};server=pc002;UID=sa;PWD=123;DataBase=master"
conn.open
filename=trim(Request.form("select"))
If filename="-" Then
msg="还没有备份，不能还原！"
Call Succe_Msg(msg)
Else
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(server.MapPath("databasebackup")&"\"&filename) Then
sql="Restore Database goods From Disk='"&server.MapPath("databasebackup")&"\"&filename&"' with file=1"
response.Write sql '载查询分析器里能够恢复
conn.Execute sql
Else
msg="没有这个备份文件，请重新选择！"
Call Error_Msg(msg)
End If
End If
conn.Close
Set conn=nothing
End Sub
%>
错误提示：因为数据库正在使用，所以未能获得对数据库的排它访问权。
请问各位大虾，怎么解决？