那就是你的语法错误的, 在SQL的查询分析器里执行一下吧

解决方案 »

  1.   

    http://211.141.67.12:88/vb/rebak.zip下载吧 我做的 
    完整版
      

  2.   

    这种问题很多人问过了
    ===========================================
    Private Sub Restore()
        Dim cn As New ADODB.Connection
        With cn
            .Open "Provider=SQLOLEDB; " & _
                  "Server=" & ServerName & ";" & _
                  "Database=ddd;" & _
                  "Uid=" & ServerID & ";" & _
                  "Pwd=" + ServerPassword + ";"
                  
            .Execute "use master"
            
            .Execute "alter database ddd set SINGLE_USER"
            .Execute "restore database ddd from disk='d:\ddd.bak'"
            .Execute "alter database ddd set MULTI_USER"
            
            .Execute "use ddd"
        End With
    End Sub