enum ADODB.SeekEnum:

   def enum
      adSeekFirstEQ = 1
      adSeekLastEQ = 2
      adSeekAfterEQ = 4
      adSeekAfter = 8
      adSeekBeforeEQ = 16
      adSeekBefore = 32.

end enum.
