Try replacing

Code:
'            FL = iVBSQLiteCursor(3).Value
'            DT = iVBSQLiteCursor(4).Value
'            BD = iVBSQLiteCursor(5).Value
. . . with

Code:
            FL = iVBSQLiteCursor.Value(2)
            DT = iVBSQLiteCursor.Value(3)
            BD = iVBSQLiteCursor.Value(4)
. . . for optimal performance:

Code:
RC6-Chunks: 	0.71
DAO: 		0.73
VBSQLite Cursor: 	0.41
RC6 Cursor: 	0.41
cheers,
</wqw>