Hallo warum wird das letzte Keyword nicht ausgelesen?
######################## Code ######################## Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load '#### Hier den dbname über XML auslesen und übergeben an CurItem2
Dim dbdocname As New System.Xml.XmlDocument() 'Dim txtdbname 'As Object = Nothing
dbdocname.Load(Application.StartupPath & ".\XMLSQL.xml") If dbdocname.GetElementsByTagName("Benutzer")(0) IsNot Nothing Then Label1.Text = dbdocname.GetElementsByTagName("Benutzer")(0).InnerText If dbdocname.GetElementsByTagName("Passwort")(0) IsNot Nothing Then Label2.Text = dbdocname.GetElementsByTagName("Passwort")(0).InnerText If dbdocname.GetElementsByTagName("Root")(0) IsNot Nothing Then Label3.Text = dbdocname.GetElementsByTagName("Root")(0).InnerText End If End If End If '##### End Sub #######################