oXml.LoadXml(sParams)
oNodeList = oXml.SelectNodes("//tdProducts")
For lx As Integer = 0 To oNodeList.Count - 1
        oNode = oNodeList.Item(lx)
 
             oNodeReader = New System.Xml.XmlNodeReader(oNode)
 
             Do While oNodeReader.Read()
 
                sFields = oNodeReader.Name
 
                lType = CInt(oNodeReader.GetAttribute(oNodeReader.Name))
 
                If lType = 0 Or lType = 3 Then
                   sValues = "'" & oNodeReader.Value & "'"
                ElseIf lType = 1 Then
                   sValues = oNodeReader.Value
                ElseIf lType = 2 Then
                   sValues = oNodeReader.Value.ToString.Replace(",", ".")
                End If
 
              Loop
 
        sInsert = "Insert Into tdProducts (" & sFields & ") Values (" & sValues _
          & ")"
Next lx