Dim docxml As New XmlDocument
        docxml.Load("optionen.xml")
 
        Dim elexml As XmlElement = docxml.DocumentElement
 
        Dim nodexml As XmlNode = elexml.FirstChild
 
        Dim attrcoll As XmlAttributeCollection = nodexml.Attributes
 
        Dim attr As XmlAttribute = attrcoll("connStrxml")
 
        Dim connStr As String = attr.InnerXml