Use this
Dt_Amount.AsEnumerable.Where(Function(x) x("CreditCardTransactions/CreditCardTransaction/0/AuthCode").ToString.ToUpper.Contains("AUTHORIZED") andAlso CDbl(x("CreditCardTransactions/CreditCardTransaction/0/TranAmount").ToString)>0).CopyToDatatable
cheers
