Help going to newest record

[fatboy95]

I use the below code to add a record to my database. It works great except I just can't figure out how to move to the newest record added to the form/database. If you don't mind taking a look at it and see if you can find what I am missing? Thanks.

If Not Form.NewRecord Then
If (Not IsNull(DLookup("itemID", "[Req Table]", "ItemID = " & Combo16 & " and ShopID = " & ShopID))) Then
MsgBox "That Item has already been added", , "Duplicate Entry"
GoTo Exit_Command19_Click
End If
DoCmd.RunSQL "INSERT INTO [Req Table] (itemID,shopID) VALUES(" & Combo16 & "," & ShopID & ");"
Form.Requery
Else
ItemID = Combo16
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

End If