Dim i As Integer
                Dim ds As New DataSet("Bescheinigungen")
                Dim doc As XmlDocument = New Xml.XmlDocument
                Dim rk As Microsoft.Win32.RegistryKey = _
                  Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Volatile" & _
                  "Environment", False)
                'Lädt das xml aus dem EigeneDateien-Verzeichnis
                doc.Load(rk.GetValue("HOMEDRIVE") & rk.GetValue("HOMEPATH") & _
                  "\Eigene Dateien\benzol.xml")
 
                'lädt die Tabelle Untersuchungen, Arbeitgeber, Proband in ds
                ds = CU.DataTable(ds)
                ds = CAG.DataTable(ds)
                ds = Cproband.DataTable(ds)
 
                Dim node As XmlNode = doc.ChildNodes(0)
                node = api.FindXMLNode(node, ds.Tables(0).TableName).ChildNodes( _
                  0)
 
                'Durchlauf durch die Tabellen
                For i = 0 To ds.Tables.Count - 1
                    Dim dt As DataTable = ds.Tables(i)
 
                    'Jeden Knoten mit dem Inhalt aus der jeweiligen Spalte 
                    ' füllen
                    While Not node.NextSibling Is Nothing
                        Select Case dt.Columns(node.Name).DataType.ToString
                            Case "System.Guid"
                                node.InnerText = api.GUID_String(dt.Rows(0)( _
                                  node.Name))
                            Case "System.String"
                                node.InnerText = api.nienull(dt.Rows(0)( _
                                  node.Name))
                            Case "System.Int32"
                                node.InnerText = api.cvint(dt.Rows(0)( _
                                  node.Name))
                            Case "System.DateTime"
                                node.InnerText = api.nienull(dt.Rows(0)( _
                                  node.Name))
                        End Select
                        node = node.NextSibling
                    End While
                    If i < 2 Then
                        node = node.ParentNode.NextSibling.ChildNodes(0)
                    End If
                Next i
 
                'Das xml wieder im EigeneDateien-Verzeichnis abspeichern
                doc.Save(rk.GetValue("HOMEDRIVE") & rk.GetValue("HOMEPATH") & _
                  "\Eigene Dateien\benzol.xml")
                Dim FI As System.IO.FileInfo
                Dim App As String = rk.GetValue("HOMEDRIVE") & rk.GetValue( _
                  "HOMEPATH") & "\Eigene Dateien\benzol.xml" _
                  'sapi.getVorlagenpfad & "\" & Vorlage
                FI = New FileInfo(App)
                If FI.Exists Then
                    Dim psi As New ProcessStartInfo(App)
                    Dim p As New Process
                    p.StartInfo = psi
                    p.Start()
                Else
                    MsgBox("Datei nicht gefunden!")
                End If
            End If