Hi,
I had a similar problem. the error would come out if I put the line:
Trn_Date = dm -> tbSalesH -> FieldByName("trn_date") -> AsDateTime;
Changed it to :
Trn_Date = dm -> tbSalesHTRN_DATE -> AsDateTime;
The problem is gone, don't know why.
Frank