oRecordset.MoveFirst Do While Not oRecordset.Eof With oRecordset ?.Fields("country").Value,; .Fields("region").Value,; .AbsolutePosition,; .Bookmark .MoveNext EndWith EndDohttp://www.msdn.microsoft.com/library/default.asp?URL=/library/techart/ADOJump.htm