Auto create record based on date and criteria in another record (1 Viewer)

Sub CreateDailyRecurrance(FromTaskID as long, DayPeriod as long, i as long)
  dim rst as dao.recordset
  dim dte as date
  dim j as long
  set rst = currentdb.openrecordset( _
    "SELECT Caption, Date FROM tTask WHERE TaskID = " & FromTaskID)
  with rst
    dte = !Date
    for j = 1 to i
      dte = dte + DayPeriod
      currentdb.execute _
        "INSERT INTO tTask ( Caption, Date ) " & _
        "SELECT '" & !Caption & "', #" & dte & "#"
    next j
    .close
  end with
end sub

Sub CreateDailyRecurrance(FromTaskID as long, DayPeriod as long, i as long)
  dim rst as dao.recordset
  dim dte as date
  dim j as long
[COLOR="Green"]  'open a recordset of the single, original task that will recurr[/COLOR]
  set rst = currentdb.openrecordset( _
    "SELECT Caption, Date FROM tTask WHERE TaskID = " & FromTaskID)
[COLOR="Green"]  'using that recordset...[/COLOR]
  with rst
[COLOR="green"]    'retrieve the date of the original item[/COLOR]
    dte = !Date
[COLOR="green"]    'loop for the number of recurrances you want[/COLOR]
    for j = 1 to i
[COLOR="green"]      'for each recurrance, add the period, in days, to the original date
      'for weekly recurrance DayPeriod will = 7, and dte will be 7 days later in each loop[/COLOR]
      dte = dte + DayPeriod
[COLOR="green"]      'insert the new task with the new date back into the tasks table[/COLOR]
      currentdb.execute _
        "INSERT INTO tTask ( Caption, Date ) " & _
        "SELECT '" & !Caption & "', #" & dte & "#"
    next j   
    .close [COLOR="green"]'rst[/COLOR]
  end with
end sub