Dim t_id, ag_id, rate, incr_rate As Integer
Dim stDate, nxstDate, nxenDate, nxyrDate, enDate As Date
Dim StrSQL As String
t_id = Me.tenant_id
ag_id = Me.id
stDate = Me.startdate
enDate = Me.enddate
rate = Me.initial_rate
incr_rate = Me.increase_rate...