Private Sub aktuelleCombobox_DropDownClosed(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles aktuelleCombobox.DropDownClosed
Me.MeineComboBox.FindString(Me.MeinTableAdapter.GetString( _
aktuelleCombobox.SelectedValue))
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Abrufen der" & _
              "Default-Kategorie für Modellreihe:", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten