"This document already has a 'DocumentElemen t' node" error

[seasonmmclane]

I am clueless...
Here is my code:
Private Sub genCodeDynamic( ByVal nIn As XmlNode, ByRef nOut As XmlNode, ByVal docOut As XmlDocument, _
ByVal stopAtNode As XmlNode, ByVal dr As DataRow)
Dim d1 As String = docOut.InnerXml 'debug

Try
Dim t As XmlNode 'text nodes
If Not (nIn Is Nothing) AndAlso nIn.HasChildNod es Then
Dim xc As XmlNodeList = nIn.SelectNodes ("*")
Dim x As XmlNode
For Each x In xc
nOut = nOut.AppendChil d(docOut.Create Element(x.Name) )

t = x.SelectSingleN ode("text()")

If Not (t Is Nothing) Then
If Len(t.Value) > 3 And Microsoft.Visua lBasic.Left(t.V alue, 3) = "DB:" Then
'Dim dtest As String = dr("docid")
Dim drs As String = Database.safedb str(dr, Microsoft.Visua lBasic.Right(t. Value, Len(t.Value) - 3))
nOut.AppendChil d(docOut.Create TextNode(Databa se.safedbstr(dr , Microsoft.Visua lBasic.Right(t. Value, Len(t.Value) - 3))))
Else
nOut.AppendChil d(docOut.Create TextNode(t.Valu e))
End If

End If

Dim ac As XmlAttributeCol lection = x.Attributes
Dim aIn As XmlAttribute
Dim aOut As XmlAttribute
For Each aIn In ac
aOut = docOut.CreateAt tribute(aIn.Nam e)
If Len(aIn.Value) > 3 And Microsoft.Visua lBasic.Left(aIn .Value, 3) = "DB:" Then
aOut.Value = Database.safedb str(dr, Microsoft.Visua lBasic.Right(aI n.Value, Len(aIn.Value) - 3))
Else
aOut.Value = aIn.Value
End If
'ret = ret & "a.Value = """ & a.Value & """" & vbCrLf
nOut.Attributes .SetNamedItem(a Out)
Next
'Now get all the child nodes of x
If x.HasChildNodes AndAlso Not (x Is stopAtNode) Then
'ret = genCode(x, ret, stopAtNode)
genCodeDynamic( x, nOut, docOut, stopAtNode, dr)
End If
nOut = nOut.ParentNode
Next
End If

Catch ex As Exception
handleException (ex)
End Try
End Sub