Dim query = From i In XmlRead.Element(mXMLTagOptionen).Element
                                     (mXMLTagTranslation).DescendantsAndSelf( _
                                       mXMLTagVerbindung) _
            Where i.Element(mXMLTagVerbindungSQL).Value = strVerbindungsArt( _
            intVbFor) _
            Select i
 
For Each result In query
    strTranslation = result.Attribute(mXMLTagName).Value
    intAktiv = result.Attribute(mXMLTagAktiv).Value
Next