i found a back door!!!

If CategoryID = 501 Then
intCategoryID = CategoryID
strCategoryName = categoryName & "501"
intProductID = ProductID
strProductName = ProductName & "501"
strDescription = ProductDescription & "501"
decPrice = ProductPrice
End If

Xd ahhahahahahahh........................
this thing just writes 501 at the end of a qury string