Try:
With rst
.MoveFirst
Do Until .EOF
.Edit
If [Ship Qty] > [MaxShipQty] Then
!Status = "Over Shipped"
ElseIf [Ship Qty] < [Order Qty] Then
!Status = "Short"
Else
!Status = "Pass"
End If
rst.Update
rst.MoveNext
Loop
End With
Set rst = Nothing
Set dbs = Nothing
Glenn P. Jones
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/q7folB/TM
--------------------------------------------------------------------~->
Please zip all files prior to uploading to Files section.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessDevelopers/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
