Dim session As New NotesSession
Dim thisdb As NotesDatabase
Set thisdb = session.CurrentDatabase
Dim view As NotesView
Set view = thisdb.GetView("DLL")
Dim doc As NotesDocument
Dim keys( 1 To 2 ) As String
keys( 1 ) = "Column 1 Value"
keys( 2 ) = "Column 2 Value"
Set doc = view.GetDocumentByKey( keys , True)