...ask user if they would like to add value
If MsgBox("Add Value", vbYesNo + vbQuestion, "Add Value") = vbYes Then
adoPrimaryRS.Open "select * from cat WHERE category='" & Replace(cboCat.Text, "'", "''") & "'", db, adOpenStatic, adLockOptimistic
db.Execute "INSERT INTO Cat VALUES('"...