[willisgt]

I'm trying to create a new appointment, but my code:

	Msgbox( "appointments: " & tableAppointments.RowCount )

	For i = 0 To tableAppointments.RowCount - 1

		appointment.CreateNew

		appointment.AllDayEvent 				= tableAppointments.Cell( "allday", i )
		appointment.Body 						= tableAppointments.Cell( "body", i )
		appointment.Categories 					= tableAppointments.Cell( "cat", i )
		appointment.Duration 					= tableAppointments.Cell( "duration", i )
		appointment.EndTime 					= tableAppointments.Cell( "endtime", i )
		appointment.Location 					= tableAppointments.Cell( "location", i )
		appointment.ReminderDialog 				= tableAppointments.Cell( "reminderDialog", i )
		appointment.ReminderLed 				= tableAppointments.Cell( "reminderLED", i )
		appointment.ReminderMinutesBeforeStart	= tableAppointments.Cell( "reminderMINS", i )
		appointment.ReminderRepeat 				= tableAppointments.Cell( "reminderRepeat", i )
		appointment.ReminderSet 				= tableAppointments.Cell( "reminderSet", i )
		appointment.ReminderSound 				= tableAppointments.Cell( "reminderSound", i )
		appointment.ReminderSoundFile 			= tableAppointments.Cell( "reminderSoundFile", i )
		appointment.ReminderVibrate 			= tableAppointments.Cell( "reminderVibrate", i )
		appointment.Start 						= tableAppointments.Cell( "start", i )
		appointment.Subject 					= tableAppointments.Cell( "subject", i )
		
		AppointmentsCollection.AddItem( appointment.Value )

	Next

doesn't work - meaning, the appointment never shows up the the Calendar (that's the Windows Mobile built-in calendar I'm referring to).

The table has 36 rows, and I've verified that it's reading each row correctly.

No crash, no error - the program just doesn't work... anyone see what I'm doing wrong?


Gary