Overføre data fra form til Outlook kalender

Jeg vil lave en form hvor de data der tastes ind kan overføres til en kalender aftale.

mit test-eksempel ser således ud

On Error GoTo Err_Kommandoknap6_Click
Dim objAppt As Outlook.AppointmentItem
Dim objOutlook As Outlook.Application

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)


With objAppt
        .Start = #9/22/2004 12:00:00 PM#
        .End = #9/22/2004 2:00:00 PM#
        .Subject = "Emne test."
        .Body = "Dette er en test"
        .Save
End With


Exit_Kommandoknap6_Click:
    Exit Sub

Err_Kommandoknap6_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap6_Click
   
End Sub


Det virker som om "den" får fat i outlook, men der bliver ikke sat en aftale...
Nogen der kan se hvad jeg manlger..
ideen er at jeg vil udskifte test værdierne, med indholdet af felter fra formularen (access2000)