Found my problem.

My date sent to the routine ia actually a datetime field
And the calendar only accepts srtict date fields

Thanks
Peter

>tried this with the same effect
>

WITH THISFORM.oCAL
>	.LEFT		  = THIS.LEFT
>	.TOP		  = THIS.TOP + 40
>    .aSelectedDates = .F.
>    .lMultiselect = .F.
>    .AddDate(THISFORM.business.DATA.startdate)
>
>	.VISIBLE			= .T.
>	.ZORDER(0)
>ENDWITH
>

>
>
>
>
>>i am trying tu use rcsCalendar
>>
>>I want to pass the current data in my filed to it and then get the selected one back into the field?
>>
>>I added rcsCalendar to my form
>>and have the followinf code
>>

>>
>>WITH THISFORM.oCAL
>>
>>	.LEFT		  = THIS.LEFT
>>	.TOP		  = THIS.TOP + 40
>>	.lMultiSelect = .F.
>>	dDate1		  = THISFORM.business.DATA.startdate
>>	.iCurrentYear		= YEAR(m.dDate1)
>>	.iCurrentMonth		= MONTH(m.dDate1)
>>	.iSelectedDateCount	= DAY(m.dDate1)
>>	.RefreshCalendar()
>>
>>	.VISIBLE			= .T.
>>	.ZORDER(0)
>>ENDWITH
>>
>>

>>it does not highlight the date passed in through the year/mont/datecount properties!
>>Peter