看看源码

你应该打开Master数据库然后再对你需还原的数据库进行操作，此时不能打开需还原的数据库

Set Conn = New ADODB.Connection
Conn.ConnectionString = strCnn
Conn.Open’打开需导出数据库的表

'开始备份(对整个数据库进行备份)
    SQL = "EXEC sp_addumpdevice 'disk', '" & sGetDate & "Database'," & _
          "'" & sServerFile & "\BACKUP\" & sGetDate & "Database.dat'"
    SQL = SQL & " BACKUP DATABASE " & sInitialCatalog & " TO [" & sGetDate & "Database]"
Conn.Execute SQL

’还原数据库（此时应打开主表Master进行还原操作）
Set Conn = New ADODB.Connection
    Conn.ConnectionString = strCnn
    Conn.Open

'恢复数据库
    SQL = "RESTORE DATABASE " & sInitialCatalog & " from [" & txtRestorePath.Text & "]  "
    Conn.Execute SQL
'sInitialCatalog 为当前数据库名   txtRestorePath.Text为Dat文件保存的路径