Thanks for your post. I kinda follow what you're saying but not sure how I should change my code.
I tried to change
DoCmd.OpenForm "AddNewCustPartNo", , , , acAdd, acDialog, NewData
to
DoCmd.OpenForm "AddNewCustPartNo", , , , , acDialog, "CustPart_No = '" & NewData "'"
but that didn't take...