Try this way...
Product = Dlookup("[ProductID]","[tblAHU's]","[strAHUuniqueID] = " & Me.AHUuniqueID)
sql = "INSERT INTO tblAncilleries ( PartNumber, ProductDescription ) VALUES
( " & strPartNumber & ",'" & strDescription & "' ) Where [ProductID] = " & Product