I have a random program.. and I am having a some trouble with...

The random part works fine.. but as I enter in how many users I want to randomly pick.. it does not pull back that number of employees .. I friend help with this.. so please bare with me..

thanks

Code:
Private Sub GetEmployeeNON()
Dim intRnd As Integer
Dim intRndHi As Integer
Dim intRndLo As Integer
Dim strSQL, strCurrent As String

Randomize

strCurrent = Date
Me.RecordSource = "SELECT COUNT ([Name]) AS NoName FROM Table1"
If Me![NoName] = 0 Then
MsgBox "Warning! No Records Selected!"
    Exit Sub
Else
    intRndLo = 1
    intRndHi = Me![NoName]
    intRnd = Int((intRndHi - intRndLo + 1) * Rnd + intRndLo)
    strSQL = "SELECT * FROM Table1"
    Me.RecordSource = strSQL
    DoCmd.GoToRecord acDataForm, "frmNON", acGoTo, intRnd
    Me![N_Tested] = Format(Date, "Short Date")
    Me.Refresh
End If
Exit_GetEmployeeNON:
    Exit Sub
    
intRnd = ""
intRndHi = ""
intRndLo = ""

    
End Sub

Private Sub Command0_Click()

On Error GoTo Err_bSave_Click
Dim intCounter As Integer
For intCounter = 1 To CInt(InputBox("Enter Number of Employees to test"))
Call GetEmployeeNON 
Me.Requery
Next intCounter

Exit_bSave_Click:

Err_bSave_Click:
    If Err = 13 Then 'The command or action Undo is not available now
        Exit Sub
    Else
        MsgBox Err.Number, Err.Description
        Resume Exit_bSave_Click
    End If

End Sub