Outlook Appointment Recurrence

[GSX]

Using VB.NET, I'm writing a utility that will export my upcoming
calendar appointments to an Access database for use in my Intranet.
Using the code is below to retrieve item 1:

''''''''''''''''''''' BEGIN CODE
' Create Outlook application.
Dim oApp As Outlook.Application = New Outlook.Application

' Get NameSpace and Logon.
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")

Dim oCalendar As Outlook.MAPIFolder =
oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
Dim oItems As Outlook.Items = oCalendar.Items

Dim oAppt As Outlook.AppointmentItem = oItems.Item(1)

'''''''''''''''''''' END CODE


"oAppt.RecurrenceState" will provide a 0 or 1 depending on the
appointment recurrence. However, it does not ell me if this is a yearly
recurring appt., daily recurring appt., etc.?

Could anyone provide their thoughts how I would go about getting the
recurrence pattern from Outlook?

Thank in advance,
GSX