Dim strDB As String 'Initialize string to database path.
strDB = "C:\Newdb3.mdb" ' this is a directory you have
'Create new instance of Microsoft Access
Set appAccess = CreateObject("Access.Application.8")

'Open database in Microsoft Access window
appAccess.NewCurrentDatabase(strDB) 'Get Database variable.

'Dim dbs As Database, tdf As TableDef, fld As FIELD
Set dbs = appAccess.CurrentDB() 
Set tdf = dbs.CreateTableDef("Contacts") 'Create new table.

'Create field in new table.
dbText = 10
Set fld = tdf.CreateField("FirstName",dbText,10) 

'Append Field and TableDef objects.
tdf.FIELDS.Append fld
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh

Set fld = tdf.CreateField("LastName",dbText,10)
tdf.FIELDS.Append fld
dbs.TableDefs.Refresh

Set fld = tdf.CreateField("Company",dbText,10)
tdf.FIELDS.Append fld
dbs.TableDefs.Refresh

Example of Agent2:
This Populates the table into the correct fields, gets it data from a view from notes, but if it is blank, goes to the next document.

Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set qry.Connection = con
Set result.Query = qry
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("1. Contact\1. List")
'connects to the database
con.ConnectTo("Access Driver")

'queries the table Contacts.
qry.SQL = "SELECT * FROM Contacts"

'result is what temp stores the value and is pointing to the execute command.
result.Execute

Set doc = view.GetFirstDocument
While Not(doc Is Nothing)

'If the value is empty then get the next document else get the document that 
you are pointing at.
If result.IsValueNull(uidoc.CurrentField) Then
Set doc = view.GetNextDocument(doc)

'update the value and adds it to the row
result.AddRow
Call result.SetValue("FirstName",doc.FirstName(0))
Call result.SetValue("LastName",doc.LastName(0))
Call result.SetValue("Company",doc.Company(0))
result.UpdateRow
Set doc = view.GetNextDocument(doc)
Else
result.AddRow
Call result.SetValue("FirstName",doc.FirstName(0))
Call result.SetValue("LastName",doc.LastName(0))
Call result.SetValue("Company",doc.Company(0))
result.UpdateRow
Set doc = view.GetNextDocument(doc)
End If
Wend
result.Close(DB_CLOSE)
con.Disconnect