Access to Outlook VBA - Creating an appointment in outlook using Pick - Microsoft Community

i have been working on access code allow me create outlook appointments database. have code can create appointment in default calendar. want create appointment in different calendar account stored outlook. have total of 3 outlook accounts. having difficulty finalizing code. assistance on appreciated. here code below:

private sub createappointment_click()

dim olapp outlook.application
dim olcal outlook.namespace
dim olappoint outlook.appointmentitem

set olapp = createobject("outlook.application")

set olcalender = olapp.getnamespace("mapi").pickfolder

set olappoint = olapp.createitem(olappointmentitem)

with olappoint
        .start = me.startdate.value
        .end = me.enddate.value
        .alldayevent = me.alldayevent.value
        .subject = me.subject.value
        .body = me.body.value
        .busystatus = olfree
        .reminderset = true
        .save
end with

end sub

what missing? when click create appointment button show me pick folder. when select folder want appointment go into, outlook post default folder. advice?

Office / Outlook / Microsoft Office Programming / Office 2016