The following code has been provided by Sancha Kupke of Blackbaud (Australia) to create a Gift Amendment (date in US format): Public Sub ChangeNextTransDate() Dim oGift As CGift Set oGift = New CGift oGift.Init REApplication.SessionContext oGift.Load 1304 Dim oAmend As IBBAmendment Dim oAMServer As CAmendmentServer Set oAMServer = New CAmendmentServer With oAMServer .Init REApplication.SessionContext, oGift Set oAmend = .AddAmendment With oAmend .Fields(AMENDMENT_fld_Installment_Frequency) = "Monthly" .Fields(AMENDMENT_fld_Schedule_MonthlyType) = "Specific Day" .Fields(AMENDMENT_fld_Date_1st_Pay) = "4/20/2007" .Fields(AMENDMENT_fld_Schedule_DayOfMonth) = 20 .Fields(AMENDMENT_fld_Schedule_Spacing) = 1 End With .Save End With oAMServer.CloseDown Set oAMServer = Nothing oGift.Save oGift.CloseDown Set oGift = Nothing Set oAmend = Nothing End Sub We found that the following line should be added as well: .Fields(AMENDMENT_fld_Schedule_Month) = MonthName(Month(4/20/2007)) FYI. Cheers, Gary Hay The Wilderness Society Hobart, TAS, Australia