code for sort my database

Ah sorry, copied the wrong line from your post. You can just change the order of in the array in 3 lines of the code, e.g.

i = Application.GetCustomListNum(Array("MDR", "ODR", "SH", "VR"))

to

i = Application.GetCustomListNum(Array("SH", "MDR", "ODR", "VR"))