How do I export data from Access database to Lotus Notes database

[Little Miss Sunshine]

I have created a:
Table (of data)
Query (sorted in relevant order)
Module (VB design of where data will come from and download to)

I get Run Time Error 5: Invalid Procedure Call or Argument.

Macros is this (problem lies in lines:Set AuditTrak1 =
CurrentDb.OpenRecordset("ExporttoAudit") .... and ... AppActivate
"AuditTrak - NLTView - Lotus Notes")

Macro:
Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub exportAuditTrak2()
Dim AuditTrak1 As Recordset

Set AuditTrak1 = CurrentDb.OpenRecordset("ExporttoAudit")
AppActivate "AuditTrak - NLTView - Lotus Notes"

Do While Not (AuditTrak1.EOF)
SendKeys "%{1}", True
SendKeys AuditTrak1!Audit_Title & "{TAB}", True
SendKeys AuditTrak1!Audited_By & "{TAB}", True
SendKeys AuditTrak1!Audit_Ref_No & "{TAB}", True
SendKeys AuditTrak1!Business_Unit & "{TAB}", True
SendKeys AuditTrak1!Division & "{TAB}", True
SendKeys AuditTrak1!Audit_Report_Date & "{TAB}", True
SendKeys AuditTrak1!Class & "{TAB}{TAB}{TAB}", True
SendKeys AuditTrak1!Map_ID & "{TAB}", True
SendKeys AuditTrak1!Description_of_control_gap & "{TAB}", True
SendKeys AuditTrak1!Management_Action_Plan & "{TAB}", True
SendKeys AuditTrak1!Action_Status & "{TAB}", True
SendKeys AuditTrak1!Responsible_Individual & "{TAB}", True
SendKeys AuditTrak1!Original_Implementation_Date & "{TAB}", True
SendKeys AuditTrak1!Revised_Implementation_Date & "{TAB}", True
SendKeys AuditTrak1!Person_accountable & "{TAB}", True
SendKeys AuditTrak1!Status & "{TAB}", True
SendKeys "%{1}", True
Sleep (20)
AuditTrak1.MoveNext
Loop
End Sub

Function ExporttoAuditTrak()
If MsgBox("Please Ensure that the AuditTrak Database is open to the Control
Standard Input Screen", vbOKCancel) = vbOK Then Call exportCore
End Function


Can anyone help to debug this program and help me move data from access to
Lotus Notes.