Dim IndVal As Object
Dim targetDate As Long = DateUtils.SetDate(2013, 6, 1)
Table.Initialize(Access.GetTable("TAB"))
Index.Initialize(TableEnt.GetIndex("CODE_DT"))
Cursor.Initialize(TableEnt.GetTable, IndexEnt.GetIndex)
IndVal=targetDate
Cursor.FindClosestRowByEntry(Array As Object(IndVal))
Msgbox(CursorEnt.IsBeforeFirst,"")
Msgbox(CursorEnt.IsAfterLast,"")
Do Until CursorEnt.IsAfterLast
.....
(If condition Then Exit)
.....
CursorEnt.GetNextRow
Loop