Листинг 7

Пример создания базы данных

? Проверка на существование
Dim databaseName As String
databaseName = «AdventureWorksAMO»
If myServer.Databases.ContainsName(databaseName) Then
	Throw New ArgumentOutOfRangeException(databaseName, _
 		«Database already exists in the server.»)
End If
? Если не существует, создать 
Dim dbNew As Database = New Database(databaseName, _
Utils.GetSyntacticallyValidID(databaseName, GetType(Database)))
? Добавить новый объект в коллекцию объектов сервера
myServer.Databases.Add(dbNew)
dbNew.Update()