VB还原SQL2000数据库中出现问题

Question

最近在用VB编写备份与还原数据库的程序，备份没有问题，发现还原是提示错误。编写代码如下：
Private Sub Command2_Click()
If Text1.Text = "" Then
    MsgBox "请选择要恢复的数据文件！", vbInformation, "提示"
    Exit Sub
Else
    ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？", vbQuestion + vbOKCancel, "提示")
    If ret = vbOK Then
       Dim cn As New ADODB.Connection
       Dim sn As New ADODB.Recordset
       Dim s_restore As String
       Me.MousePointer = 11
       cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & ""
       sn.Open "select  spid  from sysprocesses  where  dbid=db_id('" & Me.Combo1.Text & "')", cn
        Do While Not sn.EOF
          cn.Execute "kill " & sn("spid")
          sn.MoveNext
        Loop
        sn.close
        s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "'  with REPLACE"
        cn.Execute s_restore
         'Debug.Print gs_conn_string
         '此时需要连接master数据库才能完成数据恢复操作
         '同上student1为需要恢复的数据库
        s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "'"
         'text1一个用于记录需要恢复文件的地址的textbox
        cn.Execute s_restore
        cn.BeginTrans
        If Err.Number = 0 Then
            cn.CommitTrans
            MsgBox "数据恢复成功！", vbInformation, "提示"
            Command1.Enabled = True
            Label1.Visible = False
        Else
            cn.RollbackTrans
            MsgBox "数据恢复失败！", vbCritical, "提示"
            Command1.Enabled = True
        End If
        cn.close
        Set cn = Nothing
        Me.MousePointer = 1
    Else
        Exit Sub
    End If                      '''''''''''''''''''''''''''''''''''''''''
    On Error Resume Next
    Dim DBC As New Connection
    If db.State = 1 Then
       db.close
    End If
    db.ConnectionString = DBC.SqlConnectString(d1, d2, d3)
    rs.CursorType = adOpenDynamic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockOptimistic
    db.CursorLocation = adUseClient
    db.Open
    Set cmd.ActiveConnection = db
    If Err.Number Then
       MsgBox Err.Description, 16 + vbOKOnly, Err.Number
       Exit Sub
    End If
    db.DefaultDatabase = " & Me.Combo1.Text & "
    If Err.Number Then
       MsgBox Err.Description, 16 + vbOKOnly, Err.Number
       Exit Sub
    End If
End If
提示错误为：无法重写文件‘d：\sql\sql az\MSSQL\data\water_hammer_data.MDF'。数据库'water_hammer'正在使用该文件。求各位大神帮忙解答！

Answer 1

崩溃的时候在弹出的对话框按相应按钮进入调试，按Alt+7键查看Call Stack里面从上到下列出的对应从里层到外层的函数调用历史。双击某一行可将光标定位到此次调用的源代码或汇编指令处，看不懂时双击下一行，直到能看懂为止。

Answer 2

'Debug.Print gs_conn_string
'此时需要连接master数据库才能完成数据恢复操作请先理解这句注释的正确含义