Dim ttl As Double
Dim ra As ResultSet
ra= DB.Sql1.ExecQuery2("SELECT Ext_Price, USD_RAPP, InvNo FROM Invoice_footer WHERE InvNo = ? ", Array As String (NextInvNo))
Do While ra.NextRow
ttl = ttl + ra.GetDouble("USD_RAPP")
Loop
ttl=NumberFormat(ttl,0,2)