Пример восстановления базы резервного копирования
Dim myServer As New Server
myServer.Connect(«(local)»)
Dim databaseName As String
Dim filePath As String
databaseName = «Adventure Works Sample»
filePath = «c:AdventureWorksSample.abf»
myServer.Restore(filePath, databaseName, True)