Dim rkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources")
        Try
            Dim names As String() = rkey.GetValueNames() 
            Dim s As String
            For Each s In names 
                   ......aggiiungo il valore alla sub
            Next s