Dim cmd As New SQLCommand
cmd.ConnectionName = "外部数据源名称"cmd.CommandText = "use master;ALTER DATABASE [数据库名] SET OFFLINE WITH ROLLBACK IMMEDIATE;RESTORE DATABASE 数据库名 FROM DISK='d:\test.bak' With REPLACE;ALTER database [数据库名] set online"cmd.ExecuteNonQuery