次のスクリプトは、「HongKong」サーバーか同じクラスタ内の他のサーバーにある「sales.nsf」データベースを開きます。
Dim db As New NotesDatabase( "", "" ) Call db.OpenWithFailover( "HongKong", "sales.nsf" )