Marshall,
I have created a procedure to take care my problem, however, something is a
miss.  Can you review this code, and tell me where I am going wrong?  

The table I am creating the new table from has the following format:
UserId
LastName
FirstName
DOB
BeginDate
EndDate

The Function should check for the following:
Does a User have more than one set of service dates?
If Not, then the user's current information should be added to the table.
If the User has more than one set of service dates, then it should check to
see if the service dates are consecutive.  If they are consecutive, then the
result should be a new row of data with the original begin date, and then new
end date.  (there is also the possiblity that a user can have more than two
sets of consecutive dates, so the code should account for the fact that some
users might have three or four sets of service dates that are consecutive.)

Function BeginEndDate()

Dim rstSmSrvcDts As Recordset
Dim rstSmSrvcDtsRdy As Recordset
Dim rstUsers As Recordset
Dim dtmBeginDate As Date
Dim dtmEndDate As Date
Dim dtmBeginDateNxt As Date
Dim dtmEndDateNxt As Date
Dim strCurrUser As String
Dim SrvcDts As Recordset

   With CurrentDb
       Set rstSmSrvcDts = .OpenRecordset("SELECT * FROM
[SummaryofServiceDates]")
       Set rstSmSrvcDtsRdy = .OpenRecordset("SELECT * FROM
[SummaryofServiceDatesReady]")
   End With

   Do While Not rstSmSrvcDts.EOF
   'this section creates variables for the current records begin and end
date,
   'and the next records begin and end date
       dtmBeginDate = rstSmSrvcDts!BeginDate
       dtmEndDate = rstSmSrvcDts!EndDate
       rstSmSrvcDts.MoveNext
       dtBeginDateNxt = rstSmSrvcDts!BeginDate
       dtEndDateNxt = rstSmSrvcDts!EndDate
   'this section checks to see if the Next begin dates value is consecutive
to the
   'current records end date.
       If (dtBeginDateNxt - 1) = dtmEndDate Then
               rstSmSrvcDts.MovePrevious
               dtmEndDate = dtEndDateNxt
               With rstSmSrvcDtsRdy
                   .AddNew
                   !UserId = rstSmSrvcDts!UserId
                   !LastName = rstSmSrvcDts!LastName
                   !FirstName = rstSmSrvcDts!FirstName
                   !DOB = rstSmSrvcDts!DOB
                   !BeginDate = dtmBeginDate
                   !EndDate = dtmEndDate
                   !UnitCost = rstSmSrvcDts!UnitCost
                   .Update
               End With
   'this section checks to see if the Next begin dates value is the same as
the
   'current records end date.
       ElseIf (dtBeginDateNxt) = dtmEndDate Then
               rstSmSrvcDts.MovePrevious
               dtmEndDate = dtEndDateNxt
               With rstSmSrvcDtsRdy
                   .AddNew
                   !UserId = rstSmSrvcDts!UserId
                   !LastName = rstSmSrvcDts!LastName
                   !FirstName = rstSmSrvcDts!FirstName
                   !DOB = rstSmSrvcDts!DOB
                   !BeginDate = dtmBeginDate
                   !EndDate = dtmEndDate
                   !UnitCost = rstSmSrvcDts!UnitCost
                   .Update
               End With
   'this section checks to see if the Next begin dates value is not equal
to the
   'current records end date.
       ElseIf (dtBeginDateNxt) <> dtmEndDate Then
               rstSmSrvcDts.MovePrevious
               dtmEndDate = dtmEndDate
               With rstSmSrvcDtsRdy
                   .AddNew
                   !UserId = rstSmSrvcDts!UserId
                   !LastName = rstSmSrvcDts!LastName
                   !FirstName = rstSmSrvcDts!FirstName
                   !DOB = rstSmSrvcDts!DOB
                   !BeginDate = dtmBeginDate
                   !EndDate = dtmEndDate
                   !UnitCost = rstSmSrvcDts!UnitCost
                   .Update
               End With
       End If
       rstSmSrvcDts.MoveNext
   Loop

   rstSmSrvcDts.Close
   rstSmSrvcDtsRdy.Close
   
   Set rstSmSrvcDts = Nothing
   Set rstSmSrvcDtsRdy = Nothing
   
End Function

Thanks,
Mike