Gets the server name from a DSN registered in the computer

GetServerNameFromDSN.vb

'Gets the server name from a DSN registered in the computer
Public Shared Function GetServerNameFromDSN(ByVal nomeDSN As String) As String
    Dim retorno As String = String.Empty

    Try

        Using key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\ODBC\ODBC.INI\" & nomeDSN)

            If key IsNot Nothing Then
                Dim o As Object = key.GetValue("Server")

                If o IsNot Nothing Then
                    retorno = o.ToString()
                    Return retorno
                End If
            End If
        End Using

        Dim DSNRecuperado As String = recuperarLocalMachineODBC(RegistryView.Registry64, nomeDSN)

        If DSNRecuperado <> "" Then
            Return DSNRecuperado
        Else
            Return recuperarLocalMachineODBC(RegistryView.Registry32, nomeDSN)
        End If

    Catch __unusedException1__ As Exception
        Return String.Empty
    End Try
End Function


Private Shared Function recuperarLocalMachineODBC(ByVal localRegistro As RegistryView, ByVal nomeDSN As String) As String
    Using hklm = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, localRegistro)

        Using key = hklm.OpenSubKey("SOFTWARE\ODBC\ODBC.ini\" & nomeDSN)

            If key IsNot Nothing Then
                Dim o As Object = key.GetValue("Server")

                If o IsNot Nothing Then
                    Return o.ToString()
                End If
            End If
        End Using
    End Using

    Return String.Empty
End Function