Public Sub RandomPicker(Howmany)
'Two things to do if you can
'1st add a unique ID field (an AutoNumber field)
'2nd add a Yes/No field to track what you have sent already
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection ' <<<<Note same as CurrentDb
Dim Rs1, Rs2 As ADODB.Recordset
Dim SQLCode, SQLCode2 As String
Dim TotRecs As Single
Set Rs1 = New ADODB.Recordset
Set Rs2 = New ADODB.Recordset
SQLCode = "Select * From yourTable;"
Rs1.Open SQLCode, cnn, adOpenStatic, adLockOptimistic
Rs1.MoveLast
Rs1.MoveFirst
TotRecs = Rs1.RecordCount
'Randomly get some records
For a = 1 To Howmany
'MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.
WhichRec = Format(TotRecs * Rnd + 1, "####."

SQLCode2 = "UPDATE yourTable SET Sent = -1 WHERE UniqueID = " & WhichRec & ";"
Rs2.Open SQLCode2, cnn, adOpenStatic, adLockOptimistic
Next
Set Rs1 = Nothing
Set Conn2 = Nothing
End Sub
-------------
this code does not check to see if a record has been selected already.
DougP, MCP
Visit my WEB site
to see how Bar-codes can help you be more productive