OK - here we go

Dim strSQL As String
Dim rst As ADODB.Recordset
Dim blnSuccess As Boolean
Dim strUser As String
Dim strSleep As String
Dim intSession As Integer
Dim intTable As Integer



With rst
.ActiveConnection = globNLF
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = " SELECT * FROM OrderPad "
End With
Do Until rst.EOF
Do Until rst.EOF
'Log in first Session, User and Table
strUser = rst!tCreatedUserID
intSession = rst!niSessionNumber
intTable = rst!nlTableNumber

rst.MoveNext
If rst.EOF Then
GoTo EndOfField
End If

If rst!niSessionNumber = intSession Then
If rst!tCreatedUserID = strUser Then
If rst!nlTableNumber = intTable Then
rst!Message = "Duplicate Order"
rst!MessageID = 2
rst.Update
ElseIf rst!nlTableNumber <> intTable + 1 Then
rst!Message = "Out of Order"
rst!MessageID = 1
rst.Update
End If
End If
End If
Loop

Loop