Enviar cita a outolook desde access

[LERI]

Buenas tardes,

Lo que quiero es crear un boton desde un formulario de access que cree una cita en outlook con los datos que hay en dos campos del formulario.

Quiero que la fecha de la cita la coja de un campo y la ubicacion que sea el noombre del cliente que es otro campo.

Hasta ahora soy capaz de abrir la cita pero no se como pasar los campos.

Lo hago asi,

Option Explicit
Sub llamadaOutLook()
Dim objOutlook As Object
Dim objItem As Object
'Genera un objeto Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Crea un nuevo contacto
Set objItem = objOutlook.CreateItem(olAppointmentItem)
'Muestra el formulario para rellenar los datos del contacto
objItem.Display
'Cierra Outlook
Set objOutlook = Nothing
End Sub

Si alguien sabe como pasar los campos del formulario a la nueva cita se lo agradecería.

Un saludo.