Code to open Notes database and find a specific doc
 

Briefly stated..code to open Notes database and find a specific doc...cant
iterate through all there are 166,000 of them
my code as is below.... ndoc comes back as a long i believe a Notesentry
key...so where do i go from here ???

' set up variables ...
Dim Domdb As NotesDatabase 'database contaiing
names/groups
Dim nsdc As NotesDocumentCollection 'doc collection returned
from query
Dim ndoc As NotesDocument 'notes doc
Dim ndoc1 As NotesDocument 'notes doc
Dim varColNames As Variant 'for col val and column
name arrays
Dim varColVals As Variant

' open a session ...
Set Session = CreateObject("Lotus.NotesSession")
Call Session.Initialize

' get the database we are looking at from drop down ...
strmisc = Trim(Me.cbDatabaseList.Value)

Set Domdb = Session.GetDatabase(Me.txtNamesServer, Me.txtNamesFile)

' check if open
If (Not Domdb.IsOpen) Then
strmisc = "The names database: used to identfy indiviual in groups could not
be opened"
MsgBox strmisc, vbInformation, "Error Opening names Database"
End If

' look up the first group ...
Set nsdc = Domdb.FTSearch("GAD-WP Admin", 0)
Set ndoc = nsdc.GetFirstDocument