Access 2003 process is dropping records

I have an access 2003 Form that shows a list of people.  There is a input on the form where someone types in a number and then the form generates a series of reports for the number of people chosen.  

So, you open the form and  type in the umber 10 and the click on a generate button.  The result should be several reports based on 10 random users that were chosen via the code.
In the past, this process had broken with a file locking and I had to increase MAXFiles and have this running in an autoexec file.

Now, for no apparent reason (I cannot point out any network/files permission change to account for this) this process does two things odd:

1. If I type in 10 it runs the report based on 7, or 9 or some other . . . but not 10, But once and a while it works and spits out the 10 I am expecting.
2. I used to be able to type in a number and then just click generate report.  Now it appears that I have to type in the number and then click somewhere else first, before I generate the report.  If I go straight to Generate report, it always brings back zero reports.

I don't know if the two issues are related. Here;s the code that runs when I generate the report. I am a computer network tech, not a database guy but I have to know all.  And that's why I come running to you-Grin

Private Sub Label22_Click()
SendKeys "{ENTER}", True

Dim db As Database
Dim rst As Recordset
Dim Random, Count, i
Dim Choice As Integer

If Nz([Choose]) = 0 Then GoTo Cont
Choice = Me.Choose

Set db = CurrentDb
If [TC].SpecialEffect = 1 Then
Set rst = db.OpenRecordset("UA Schedule Choose Query")
Else
Set rst = db.OpenRecordset("UA Schedule TC")
End If

Count = 0
With rst
.MoveFirst
            If .BOF = True Then
            rst.Close
            End
            End If
    Do Until .EOF
    Count = Count + 1
    .MoveNext
    Loop
End With
   
If Choice > Count Then
With rst
.MoveFirst
    Do Until .EOF
    .Edit
    ![Spot] = False
    ![Routine] = False
    ![Random] = True
    .update
    .MoveNext
    Loop
End With
rst.Close
GoTo Cont
End If

i = 0
With rst
For i = 1 To Choice
    Do
    .MoveFirst
    Randomize
    Random = Int((Count * Rnd) + 0)
    .Move (Random)
        If ![Spot] = False Then
            If ![Routine] = False Then
                If ![Random] = False Then
                Exit Do
                End If
            End If
        End If
    Loop
.Edit
![Random] = True
.update
Next i
End With
rst.Close
DoCmd.Requery

Cont:
If Me.TC.SpecialEffect = 1 Then
DoCmd.RunMacro "Add UA"
Else
DoCmd.RunMacro "Add UA TC"
End If

DoCmd.Close
DoCmd.OpenReport "UA Chain Of Custody", acViewPreview
DoCmd.OpenReport "UA Incident Report", acViewPreview
DoCmd.OpenReport "UA Schedule", acViewPreview
End Sub