Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
  "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE1031" & _
  "")
                            RekursiveRegistryKeySuche( _
                            key,"DriverDesc",selectedadapter.Description.ToStri_
                            ng)

    Dim adapter As NetworkInterface     'Eine Netzwerkadapter Instanz
    Dim selectedadapter As NetworkInterface
adapters = NetworkInterface.GetAllNetworkInterfaces()
                        Dim o As Integer = 0
                        'Alle Adapter in der Liste durchlaufen
                        For Each adapter In adapters
                            If o = nr Then
                                selectedadapter = adapter
                            End If
                            o = o + 1
                        Next adapter

Visual Basic FTW!!