Er min XML funktion optimal ?

hej jeg har lavet en funktion til at hente login oplysninger til en SQL database fra en xml fil som ser således ud:

<?xml version="1.0" encoding="utf-8" ?>
<ServerSettings>
  <Server>Kursus1</Server>
  <Database>Changemanegement</database>
  <Table>AUDIT_TRAIL</table>
  <Bruger>sa</Bruger>
  <Password>sa</Password>
</ServerSettings>


til der bruger jeg dette script:



Private Function HentBrugerData() As String
        'Look if File Exist :) if not throw exeption
       
        Dim StrTmpRPath As String = XMLBasePath & XMLConfigFile
        Dim ColXMLData As New Hashtable
        Dim OReader As XmlTextReader = Nothing

        Dim StrLastElement As String = ""

        Try
            OReader = New XmlTextReader(StrTmpRPath)

            While (OReader.Read)
                Select Case OReader.NodeType
                    Case XmlNodeType.Element
                        If OReader.Name <> "ServerSettings" Then
                            ColXMLData.Add(OReader.Name, Nothing)
                            StrLastElement = OReader.Name
                        End If
                    Case XmlNodeType.Text
                        ColXMLData.Item(StrLastElement) = OReader.Value
                    Case Else
                End Select

            End While

        Catch ex As Exception
        Finally
            OReader.Close()

        End Try

        'Se om .XML filen indeholder de fornødne data :
        If ColXMLData.ContainsKey("Password") And ColXMLData.ContainsKey("Bruger") And ColXMLData.ContainsKey("Server") Then
            Dim StrLogin As String = ""

            StrLogin = ColXMLData.Item("Server").ToString() & ","
            StrLogin &= ColXMLData.Item("Bruger").ToString() & ","
            StrLogin &= ColXMLData.Item("Password").ToString() & ","
            'StrLogin &= ColXMLData.Item("Database").ToString() & ","
            'StrLogin &= ColXMLData.Item("Tabel").ToString()

            Return StrLogin
        Else
            MsgBox("Kunne ikke finde login, bruger default")
            Return "localhost, sa, sa" 'Default login
        End If

    End Function





Kan det virkelig passe det skal være så avanceret at hente de oplysninger ???