Dim namessession As New NotesSession Dim namesdb As New NotesDatabase( "", "" ) Call namesdb.Open( "", "names.nsf" )