Loop For Entering Bookings Into Table

Could someone check the following code. i've set up a form for creating regular bookings, and have a field, for which you type in the frequency in days you want the bookings for. (ie, 7 days for every week on that day, 14 for every two weeks etc...) and it seems to work, however it just alters the one record, instead of creating entirely new ones. Could someone please help:

Private Sub cmdCreate_Click()
Dim date2 As Date
Dim period As String
Dim cost2 As Currency
Dim frequency2 As Integer

Do While year = actual_year

date2 = Date_For
period = Time_Period
cost2 = Cost
frequency2 = Frequency

DoCmd.OpenTable "tblRegularBookings"
DoCmd.GoToRecord acDataTable, "tblRegularBookings", acNext


Date_For = date2 + frequency2
Time_Period = period
Cost = cost2
Frequency = frequency2

DoCmd.Close acTable, "tblRegularBookings"
Loop

End Sub



Also, one of the other problems i'm trying to solve is for those who want to create a regular booking but on say every third monday of the month for example.

Thanks very much