Dim db As New NotesDatabase( "", "" )
Call db.Create( "Zagreb", "inventry.nsf", True )
db.Title = "Inventory Tracking"
Dim db As New NotesDatabase( "", "quack.nsf" )
If db.IsOpen Then
Messagebox( "The database quack.nsf already exists." )
Else
Messagebox( "Creating the database quack.nsf...")
Call db.Create( "", "", True )
db.Title = "Ducks of North America"
End If