Public Sub xml_lesen(ByVal Dateiname As String)
        'Prüfen ob Dateiname existiert
        'Try
        Dim xmldoc As New System.Xml.XmlDocument
        Dim root, node As System.Xml.XmlNode
 
        xml_symbol = Nothing
        xml_Software = Nothing
 
 
        xmldoc.Load("D:\Testxml.xml")
        root = xmldoc.DocumentElement
        Dateiname = "xml" & Dateiname.ToLower
        If (xmldoc.DocumentElement.SelectNodes(Dateiname).Count) > 0 Then
            node = root.SelectSingleNode(Dateiname & "/Symbol")
            xml_symbol = (node.InnerText)
            node = root.SelectSingleNode(Dateiname & "/Software")
            xml_Software = (node.InnerText)
        End If
    End Sub

    Public Sub lesen(ByVal Datei As String)
 
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=D:\Test.mdb"
        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM Symbol Where Datei= ?"
        cmd.Parameters.AddWithValue("Datei", Datei)
 
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            Do While reader.Read()
                symbol = reader("Symbol").ToString
                Software = reader("Software").ToString
                Exit Do
            Loop
            reader.Close()
 
            con.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If con.State <> ConnectionState.Closed Then con.Close()
            con.Dispose()
        End Try
 
 
    End Sub