Dim DbsComptoir as Database, rstClients as recordset
Dim Varorigine as variant
set dbsComptoir=Opendatabase("C:\.....")
set rstclients = dbscomptoir.openrecordset("Clients",dbopentable)
rstclients.index="Societe"
varorigin==rstclients.bookmark
rstclients.seek ">=","Z"
if rstclients.nomatch
Msgbox "Not Found"
rstclients.bookmark=varorigin
endif
rstclients.close
dbscomptoir.close



I hope this will help you.
You can found a lot of information in "Microsoft jet database engine" from dan haught, jim fergusson
Best regards