Dim Session As New NotesSession
Dim DBDir As NotesDbDirectory
Dim FieldItem As NotesItem
On Error GoTo ErrorCatch
'Need to store and retrieve password.
'****** Must do dynamically for local user *******.
Call Session.Initialize("[B]Password[/b]")
'Set the Server and DB objects.
'****** Must store server and DB values in tables ******.
Set DBDir = Session.GetDbDirectory("[b]Serverpath[/b]")
Set vDispatchDB = DBDir.OpenDatabase"[b]somthing.nsf[/b]", False)
.
.
.