Code:
Private Sub Command775_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim NewPK As Long
Set db = CurrentDb
'insert new main record
db.Execute "INSERT INTO tbl_MBR_Gummy ([ItemNumber],[Description],[Remarks],[Theoretical Premix Brix],[Theoretical Post-Cook Brix],[TC1],[TC2],[SKID 3 Overage],[SKID 5 Overage],[SKID 6 Overage],[SKID 7 Overage],[We01],[We02],[We03],[We04],[We05],[S101],[S102],[S103],[S104],[S105],[S106],[S401],[UKSC01],[UKSC02],[UKS01],[UKS02],[UKP01],[UKP02],[UKP03],[UKP04],[UKP05],[UKP06],[UKP07],[UKP08],[UKP09],[UKP10],[UKP11],[MOP01],[MOP02],[MOP03],[MOP04],[MOP05],[MOP06],[MOP07],[MOP08],[CRP01],[CRP02],[CRP03],[CRP04],[MF01],[MF02],[MF03],[MF04],[MF05],[Flavor 1],[Flavor 2],[Flavor 3],[MF06],[MF07])&_"
VALUES ("&[ItemNumber]&","&[Description]&","&[Remarks]&","&[Theoretical Premix Brix]&","&[Theoretical Post-Cook Brix]&","&[TC1]&","&[TC2]&","&[SKID 3 Overage]&","&[SKID 5 Overage]&","&[SKID 6 Overage]&","&[SKID 7 Overage]&","&[We01]&","&[We02]&","&[We03]&","&[We04]&","&[We05]&","&[S101]&","&[S102]&","&[S103]&","&[S104]&","&[S105]&","&[S106]&","&[S401]&","&[UKSC01]&","&[UKSC02]&","&[UKS01]&","&[UKS02]&","&[UKP01]&","&[UKP02]&","&[UKP03]&","&[UKP04]&","&[UKP05]&","&[UKP06]&","&[UKP07]&","&[UKP08]&","&[UKP09]&","&[UKP10]&","&[UKP11]&","&[MOP01]&","&[MOP02]&","&[MOP03]&","&[MOP04]&","&[MOP05]&","&[MOP06]&","&[MOP07]&","&[MOP08]&","&[CRP01]&","&[CRP02]&","&[CRP03]&","&[CRP04]&","&[MF01]&","&[MF02]&","&[MF03]&","&[MF04]&","&[MF05]&","&[Flavor 1]&","&[Flavor 2]&","&[Flavor 3]&","&[MF06]&","&[MF07]&")"
'Retrieve the PK
Set rst = db.OpenRecordset("SELECT @@Identity")
NewPK = rst.Fields(0)
Sorry if these sound like basic questions, but they're escaping my comprehension.