; --- retrieve fieldnames from the given qryidFunc _SQLGetFields($o_ADOrs,$s_Seperator="|")Local$i,$s_Fields$s_Fields=""; Get information about Fields collectionWith$o_ADOrsFor$i=0To.Fields.Count-1$s_Fields&=.Fields($i).Name&$s_SeperatorNextEndWithreturn$s_FieldsEndFunc

; --- retrieve fieldvalues and move to next row of given qryidFunc _SQLGetRow($o_ADOrs,$s_Seperator="|")Local$s_RowValues$s_RowValues=""With$o_ADOrsIfNot.EOFThenFor$i=0To.Fields.Count-1$s_RowValues&=.Fields($i).Value&$s_SeperatorNext.MoveNextElsesetError(1)EndIfEndWithreturn$s_RowValuesEndFunc

; --- retrieve Array fieldvalues and move to next row of given qryidFunc _SQLGetRowArray($o_ADOrs,$s_Seperator="|")Local$s_RowValues$s_RowValues=""With$o_ADOrsIfNot.EOFThenFor$i=0To.Fields.Count-1$s_RowValues&=.Fields($i).Value&$s_SeperatorNext.MoveNextElsesetError(1)EndIfEndWith$s_RowValues=StringSplit($s_RowValues,$s_Seperator)return$s_RowValuesEndFunc