Dim DSNs As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", False)
For Each value As String In DSNs.GetValueNames
ComboBox1.Items.Add(value)
Next
This will get system DSNs, if you want to get user DSNs, just change from LocalMachine to CurrentUser.