Friend Function SchreibeProjekteRow(ByVal pRow As ProjekteRow) As Boolean
            Dim xDoc As System.Xml.XmlDocument = Dts.Lese_XML(Dts.DataFile)
            Dim root = xDoc.DocumentElement
            If root.HasChildNodes Then
Dim test = xDoc.SelectSingleNode("//Projekte[IDString='" & pRow.IDString & "']")
Dim test1 = root.SelectSingleNode("/Projekte[@IDString='" & pRow.IDString & _
  "']")
...
end if
...
     Return ...
        End Function

Danke für die Hilfe

Gruß Christian