Incrementing Numeric field value

[valley]

I have this bit of code in a routine.
CustNum is a Numeric field with a number
I need to increase by one
With the code below It comes always as 1

Set Db = CurrentDb
Set rs = Db.OpenRecordset("Miracle_Cloth_Main", dbOpenDynaset)
On Error Resume Next
rs.AddNew
rs!Name = NewData
rs!Cust_ID = NewData
rs!CustNum = [CustNum] + 1
rs.Update
rs.Move 0, rs.LastModified    ' Go to new record
'Me.Bookmark = rs.Bookmark    ' Go to new record
'rs.Close

Could someone help with the correct code.

 

[orna]

Increment Number

Define a variable instead of [CustNum]:

Dim Cust as ..
.
.
.
rs!CustNum = Cust
Cust = Cust + 1

 

[valley]

Define a variable instead of [CustNum]:

Dim Cust as ..
.
.
.
rs!CustNum = Cust
Cust = Cust + 1

Many thanks for the suggestion which I have tried

This code suggested in another forum seems to work
rs!CustNum = DMax("CustNum","Miracle_Cloth_Main") + 1