Reading All Documents from AddressBook - HELP!!!

[Technos]

Hi experts,
Right now I'm reading First document from Notes and displaying it in the combo box. Now I need to read all documents and then display it. Can somebody help ???

My code is:

Private Sub Form_Load()

Dim domSession As New Domino.NotesSession
Dim domDatabase As New Domino.NotesDatabase

Dim domDocument As NotesDocument
Dim domViewEntry As NotesViewEntry
Dim domView As NotesView
Dim domViewNav As New NotesViewNavigator
Dim strName As String

domSession.Initialize

Set domDatabase = domSession.GetDatabase("ho1xy4", _
    "names.nsf")
    
Set domView = domDatabase.GetView("people")
' This view contains the list of names
Set domViewNav = domView.CreateViewNav

Set domViewEntry = domCollection.GetFirstDocument()
Set domDocument = domViewEntry.Document

strName = domDocument.GetItemValue("FullName")(1)

cboName.AddItem strName

Set domViewEntry = Nothing
Set domViewNav = Nothing
Set domView = Nothing
Set domDocument = Nothing
Set domDatabase = Nothing
Set domSession = Nothing

End Sub