strSQL = "INSERT INTO strSQL = "INSERT INTO EbayOrders(ExtRef,OrderDateTime,Subsource,OrderStatus,EbayUserID,ShippingCharge,CurrencyCode,VATRegion,BuyerCheckoutMessage,ShippingServiceID," & _
"PaymentDate,ExternalTransactionID,BuyerMessage,BillingFirstName,BillingLastName,Email,ShippingName,ShippingAddress1,ShippingAddress2,ShippingRegion,ShippingCity," & _
"ShippingPostcode,ShippingCountry,EbaySalesRecordNo,SKU,Quantity,ItemPrice,EbayShippingClass)VALUES" & _
"('" & ExtRef & "','" & OrderDateTime & "','" & SubSource & "','" & OrderStatus & "','" & EbayUserID & "','" & ShippingCharge & "','" & CurrencyCode & "'" & _
",'" & VATRegion & "','" & BuyercheckoutMessage & "','" & ShippingServiceID & "','" & PaymentDate & "','" & ExternalTransactionID & " ', '" & BuyerMessage & " '" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:TransactionArray/ebay:Transaction/ebay:Buyer/ebay:UserFirstName").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:TransactionArray/ebay:Transaction/ebay:Buyer/ebay:UserLastName").text, "'", "''") & "'" & _
",'" & objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:TransactionArray/ebay:Transaction/ebay:Buyer/ebay:Email").text & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:Name").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:Street1").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:Street2").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:StateOrProvince").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:CityName").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:PostalCode").text, "'", "''") & "'" & _
",'" & Replace(objxmldoc.selectSingleNode("//ebay:Order[" & O & "]/ebay:ShippingAddress/ebay:Country").text, "'", "''") & "'" & _
",'" & EbaySalesRecordNo & "','" & SKU & "','" & Quantity & "','" & ItemPrice & "','" & ChannelShippingClass & "')"
DoCmd.RunSQL strSQL