请教关于SQL server7的数据库的恢复问题

[ssassa]

Private Sub RestoreDatabass(s As String)
Dim strSQL As String
sc="{sql server};server=server;uid=sa;pwd=;database=northwind"
cn.ConnectionString = sc
cn.Open
'将数据库备份至一个文件
'cn.Open dataname
strSQL = "RESTORE DATABASE northwind FROM disk = '" + s + "' WITH FILE = 1,RECOVERY,REPLACE"
cn.Execute (strSQL)
Set cn = Nothing
Exit Sub
End Sub


Private Sub Command1_Click()
Filepath = Dir1.Path & "\" & File1.FileName
If MsgBox("是否从此文件恢复数据库“" & Filepath & "”？", vbYesNo + vbQuestion, "恢复数据库：") = vbYes Then
s = Filepath
RestoreDatabass (s)
Unload Me
End If
End Sub


请教我用以上程序在恢复数据库时，为什么总是提示：“数据库正在使用，系统员要独占数据库”（大概意思，具体E文我也忘了）。另外我用dirlist控件时，如果是根目录时，总是取到诸如"d:\\ABC.bak"，具体代码见上，这怎么解决？？

[shawls]

to
如果是根目录时，总是取到诸如"d:\\ABC.bak"，具体代码见上，这怎么解决？？

Filepath = Dir1.Path & "\" & File1.FileName

if left(dir1.path,1)="\" then
Filepath = Dir1.Path & File1.FileName
else
Filepath = Dir1.Path & "\" & File1.FileName
end if

[Ganzl]

以sqlservr -m (单用户管理模式）启动SQL Server

[Ganzl]

使用SQL_DMO对象库管理SQLServer最好，Enterprise Manager（企业管理器）后台就是使用SQL_DMO实现的