ok, please bear in mind that im not 100% sure about this, but if using a ADODB
then you could use something like this
Code:
Dim i As Integer
i = 0
'rs=RecordSet (your table)
rs.MoveFirst 'move to start of records
Do 'loop to move to next record
rs.MoveNext
If rs.EOF = True Then
' code to tell user if they are allowed goes here
Else
If rs.Fields("Online") = "True" Then 'Field called Online, if its true then add one to i
i = i + 1
If i > 5 Then
MsgBox "too many" ' speaks for itself really
End If
End If
End If
Loop Until rs.EOF
i hope this is of some sort of use to you, but again im not sure what DB u are using so im not sure if this will apply to you!
good luck