iCIFNo = NLSapp.SQLSelectStatement("SELECT cifno FROM cif WHERE cifnumber = '" & NLSApp.GetField("LOAN_CIFNUMBER") & "'") sName = NLSapp.SQLSelectStatement("SELECT ISNULL(firstname1, '') + ' ' + ISNULL(lastname1, '') FROM cif WHERE cifno = " & iCIFNo) iCollateralID = CLng(NLSapp.SQLSelectStatement("SELECT MAX(collateral_id) FROM loanacct_collateral_link WHERE acctrefno = " & NLSapp.GetField("LOAN_REFNO"))) iCollateralVIN = NLSapp.SQLSelectStatement("select VIN From collateral_vehicle,loanacct_collateral_link WHERE collateral_vehicle.collateral_id = loanacct_collateral_link.collateral_id and acctrefno = " & NLSapp.GetField("LOAN_REFNO")) sXML = "" & CHR(13) sXML = sXML & "" & CHR(10) sXML = sXML & "" & CHR(10) sXML = sXML & "" & CHR(10) sXML = sXML & "" & CHR(10) sXML = sXML & "" & CHR(10) sXML = sXML & "" & CHR(13) If Not NLSapp.ImportXMLRecord(sXML) Then NLSapp.MessageBox(NLSapp.GetErrorString()) End If