yeap..i ended up using dmax... and assigning a starting number to each db,,
Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo lerror
Dim r As Recordset, db As Database, x As Double
Set db = CurrentDb
Set r = db.OpenRecordset("CUSTOMER SALES DATA********")
x = DMax("[orderID]"...