'Connect to the local, default instance of SQL Server.
Dim srv As Server
srv = New Server
'Reference the AdventureWorks database.
Dim db As Database
db = srv.Databases("AdventureWorks")
'Take the database offline
db.SetOffline()
'Bring the database back online.
db.SetOnline()