Hi All,

I am working on vB,Lotus notes.Here is the code i used to get the connection,get view information.

Private Sub cmdNewok_Click()

Dim session As Object
Dim db As Object
Dim view As Object

Set session = CreateObject("notes.notessession")
Set db = session.GETDATABASE("US-FAIRAPP001/Eastern/C&L/US", "MCS\WCP\contracts\contract.nsf")

flag = True

If Not (db.ISOPEN) Then flag = db.Open("", "")

If Not flag Then
MsgBox "Cant't open file: " & db.SERVER & " " & db.FILEPATH
End If

Set view = db.GETVIEW("Central Audit DB Lookup)")

'Here i need to map the view documents data into MS-Access table.I crated same like view table fields in Access table.The main purpose of the code is to get the Lotus notes view data into Access table.

Set view = Nothing
Set db = Nothing
Set session = Nothing