ComboBox Class

    Private filteredBierLijst As List(Of Bier)
    Private originalBierLijst As List(Of Bier)
    Private header As String

///btnOpen
    Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
        If ofdBier.ShowDialog() = Windows.Forms.DialogResult.OK Then ///OFD
            cbBieren.Text = "Selecteer bier..."
            cbSortKleur.Text = "Sorteer op kleur..."
            cbSortBrouwerij.Text = "Sorteer op brouwerij..."
            cbSortKleur.Items.Clear()
            cbBieren.Items.Clear()
            cbSortBrouwerij.Items.Clear()
            txtBierLaden.Text = ofdBier.FileName ///
            originalBierLijst = Bier.LeesBestand(ofdBier.FileName, header) ///lees bestand
            filteredBierLijst = originalBierLijst ///
            cbBieren.Items.AddRange(originalBierLijst.ToArray) ///
            cbSortKleur.Items.AddRange(Bier.filterUniques(originalBierLijst, Bier.filterType.Kleur).ToArray) ///
            cbSortBrouwerij.Items.AddRange(Bier.filterUniques(originalBierLijst, Bier.filterType.Brouwerij).ToArray) ///
        End If
    End Sub

//btnSave
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If sfdBier.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Bier.bestandOpslaan(sfdBier.FileName, filteredBierLijst, header)
        End If
    End Sub

//filterOpBier
    filteredBierLijst = Bier.filterOn(originalBierLijst, cbSortBrouwerij.SelectedItem, Bier.filterType.Brouwerij)





//
//Klasse Bier
//

Imports System.IO

Public Class Bier
    'Public Const cBrouwerij As Integer = 0
    'Public Const cKleur As Integer = 1
    Enum filterType
        Brouwerij
        Kleur
    End Enum
    ''' <summary>
    ''' Constructor om een nieuw bier te instantieren
    ''' </summary>
    ''' <param name="biernaam">De naam van het bier</param>
    ''' <param name="brouwerij">Brouwerij van het bier</param>
    ''' <param name="kleur">Kleur van het bier</param>
    ''' <param name="alcohol">Alcoholpercentage van het bier</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal biernaam As String, ByVal brouwerij As String, ByVal kleur As String, ByVal alcohol As String)
        pBiernaam = biernaam
        pBrouwerij = brouwerij
        pKleur = kleur
        pAlcohol = alcohol
    End Sub
    'Properties (in java getters/setters) //Shortcut om een property structuur te maken prop (typen) + tab + tab
    Private pBiernaam As String
    Public ReadOnly Property Biernaam() As String
        Get
            Return pBiernaam
        End Get
    End Property

    Private pBrouwerij As String
    Public ReadOnly Property Brouwerij() As String
        Get
            Return pBrouwerij
        End Get
    End Property

    Private pKleur As String
    Public ReadOnly Property Kleur() As String
        Get
            Return pKleur
        End Get
    End Property

    Private pAlcohol As String
    Public ReadOnly Property Alcoholgehalte() As String
        Get
            Return pAlcohol
        End Get
    End Property
    ''' <summary>
    ''' Bestand inlezen
    ''' </summary>
    ''' <param name="fileName">pad + bestandsnaam string</param>
    ''' <returns>Retourneert een lijst van bieren</returns>
    ''' <remarks></remarks>
    Public Shared Function LeesBestand(ByVal fileName As String, ByRef header As String)
        'shared functies gebruiken we om een functie aan te roepen zonder deze functie te moeten instantiëren. (zie msdn voor verder uitleg)
        Dim bierLijst As New List(Of Bier)
        Try
            Dim sr As StreamReader = New StreamReader(fileName)
            Dim line As String = sr.ReadLine
            header = line
            Do
                line = sr.ReadLine()
                If Not line Is Nothing Then
                    bierLijst.Add(maakBier(line))
                End If
            Loop Until line Is Nothing
            sr.Close()
        Catch ex As Exception
            Console.WriteLine(ex)
        End Try
        Return bierLijst
    End Function
    Public Shared Sub bestandOpslaan(ByVal filename As String, ByVal bierLijst As List(Of Bier), ByVal header As String)
        Dim sw As StreamWriter = New StreamWriter(filename)
        sw.WriteLine(header)
        For Each b As Bier In bierLijst
            sw.WriteLine(b.Biernaam & ";" & b.Brouwerij & ";" & b.Kleur & ";" & b.Alcoholgehalte)
        Next
        sw.Close()
    End Sub
    Private Shared Function maakBier(ByVal lijn As String) As Bier
        Dim tBier As Bier
        Dim biernaam, brouwerij, kleur, alcohol As String
        Dim bierChopped() As String = lijn.Split(";") 'csv lijn splitten
        Try 'voor eventuele fouten op te vangen (lege lijn, ...)
            biernaam = bierChopped(0)
            brouwerij = bierChopped(1)
            kleur = bierChopped(2)
            alcohol = bierChopped(3)
            tBier = New Bier(biernaam, brouwerij, kleur, alcohol)
            Return tBier
        Catch ex As Exception
            Console.WriteLine(lijn & " : " & ex.Message)
        End Try
        Return Nothing
    End Function
    Public Overrides Function ToString() As String
        Return pBiernaam
    End Function
    ''' <summary>
    ''' Filter functie, via enumeration kunt u filteren op Brouwerij of op Kleur (indien gewenst uitbreidbaar tot alcohol gehalte).
    ''' </summary>
    ''' <param name="bierLijst">Lijst met bier objecten</param>
    ''' <param name="filterOn">Filter filterType.Brouwerij, filterType.Kleur</param>
    ''' <returns>Lijst met strings afhankelijk van de gekozen filter</returns>
    ''' <remarks></remarks>
    Public Shared Function filterUniques(ByVal bierLijst As List(Of Bier), ByVal filterOn As filterType) As List(Of String)
        Dim tempLijst As New List(Of String)
        For Each bier As Bier In bierLijst
            Dim b As Boolean = False
            For Each item As String In tempLijst
                If item = getDifference(filterOn, bier) Then 'Retourneert de string afhankelijk van de filter
                    b = True
                    Exit For
                Else
                    b = False
                End If
            Next
            If b = False Then
                tempLijst.Add(getDifference(filterOn, bier)) 'Retourneert de string afhankelijk van de filter
            End If
        Next
        tempLijst.Sort() 'Easy as ***, defeats the purpose of quicksorting. also lookup icomparable (for special sorting)
        tempLijst.Insert(0, "Alles")
        Return tempLijst
    End Function
    Private Shared Function getDifference(ByVal filter As filterType, ByVal bier As Bier) As String
        If filter = filterType.Brouwerij Then
            Return bier.Brouwerij
        ElseIf filter = filterType.Kleur Then
            Return bier.Kleur
        Else : Return ""
        End If
    End Function
    Public Shared Function filterOn(ByVal bierLijst As List(Of Bier), ByVal filterOnText As String, ByVal fType As filterType)
        Dim tempLijst As New List(Of Bier)
        For Each beer As Bier In bierLijst
            If getDifference(fType, beer) = filterOnText Then
                tempLijst.Add(beer)
            End If
        Next
        Return tempLijst
    End Function
End Class

this is how to get the combobox items from a database...please note i m using oracle 10g express edition. $0$0 so..lets say there is a combobox....and it will show all the movies available in a movie library.the movie names are stored in a database table called movie. $0$0 so we want to get the list of movies from the database....first add the data source to the data source property of the combobox. $0$0 then set the display memeber property to the column name in which the items are stored. $0$0 thats it,now combobox items will be retrieved from the database and displayed to the user. $0$0 code looks like this: $0 $0$0 $0 $0$0 $0$0 $0$0    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load $0 $0$0 $0  'TODO: This line of code loads data into the 'DataSet1.MOVIE' table. You can move, or remove it, as needed.      $0 $0 $0$0  Me.MOVIETableAdapter.Fill(Me.DataSet1.MOVIE)  $0 $0 $0$0  End Sub$0 $0$0 $0 $0 $0