RegReader = Registry.LocalMachine.OpenSubKey( _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
                    Dim Werte() As String
                    Dim Publisher, DisplayName As String
                    Werte = RegReader.GetSubKeyNames()
                    Dim k As Integer
                    Bar1.Maximum += UBound(Werte) - 1
                    For k = LBound(Werte) To UBound(Werte) - 1
                        Bar1.Value += 1
                        Application.DoEvents()
                        Regreader2 = Registry.LocalMachine.OpenSubKey( _
                          "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" & _
                          "" & Werte(k))
                        If Regreader2.GetValue("DisplayName", "") <> "" Then
                            Publisher = Regreader2.GetValue("Publisher")
                            DisplayName = Regreader2.GetValue("DisplayName")
                        Else
                            DisplayName = Werte(k)
                            Publisher = "N/A"
                        End If
                        SQL.read("INSERT INTO `win32_product` ( `uid` ," & _
                          "`machine` , `Caption` , `Description` , `Name`" & _
                          ")VALUES (NULL , '" & machine & "', '" & DisplayName _
                          & "', '" & Publisher & "', '" & Werte(k) & "');")
                    Next