次のスクリプトはサーバー Bombay の TODO.NSF を開こうとします。データベースが見つかった場合は開かれ、IsOpen は True を返します。データベースが見つからなかった場合は (存在しないなどの理由で) IsOpen は False を返します。
Dim db As New NotesDatabase( "Bombay", "todo.nsf" )
If db.IsOpen Then
Print( "Succesfully opened " & db.Title )
Else
Print( "Unable to open database" )
End If