Here is the code, its only purpose is to push it out to a flat database.
If mbHasSchedule Then
lRecCounter = 1
moRS.MoveFirst
Do While Not moRS.EOF
Dim oNewRec As IXMLDOMNode
Set oNewRec = oDocument.createNode(1, "record", "")
oRecNode.appendChild oNewRec
Dim oAttrib As IXMLDOMNode
Set oAttrib = oDocument.createAttribute("rec")
oAttrib.Text = CStr(lRecCounter)
oNewRec.Attributes.setNamedItem oAttrib
Set oAttrib = Nothing
For lCount = 1 To 2
Dim oNewNode As IXMLDOMNode
Set oNewNode = oDocument.createNode(1, msFieldNames(lCount), "")
If msFieldNames(lCount) = "Payment" Then
oNewNode.Text = Format(moRS.Fields(msFieldNames(lCount)) & " ", "########0.00")
Else
oNewNode.Text = moRS.Fields(msFieldNames(lCount)) & " "
End If
oNewRec.appendChild oNewNode
NOTE: I think this is place for the code ????? maybe CRLF or VB Equiv ??
Next lCount
moRS.MoveNext
lRecCounter = lRecCounter + 1
Loop
End If ' End of mbhasSchedule