Listbox laten vullen door database

[Rspike]

beste allemaal,

Ik heb een listbox en deze haalt gegevens (bedrijfsnaam) uit de database.
Deze bedrijfsnamen, staan in de tabel klanten.

Als ik dan vervolgens deze code heb, wil ik graag een andere listbox vullen met gegevens.
uit een andere tabel die in relatie is gekoppeld aan de tabel klanten.

Dus Klanten.klantnr is gekoppeld aan Opdrachten.klantnr

De Opdrachtnaam die in Tabel Opdrachten staan wil ik graag in die listbox weergeven...hoe doe ik dit?

Deze code hieronder is voor de eerste listbox die de bedrijfsnamen weergeeft, de andere listbox code weet ik dus niet goed...

Private Sub frmOpdrachtOphalen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Try
            dtOpdracht_Ophalen.Clear()
            Dim command As New OleDb.OleDbCommand("Select * From Klanten", oCon)
            oCon.Open()
            Using reader As OleDb.OleDbDataReader = command.ExecuteReader((CommandBehavior.CloseConnection))
                If reader.HasRows = True Then
                    dtOpdracht_Ophalen.Load(reader)
                    lstKlanten_Opdrachten_Ophalen.DataSource = dtOpdracht_Ophalen
                    lstKlanten_Opdrachten_Ophalen.DisplayMember = "Bedrijfsnaam"
                End If

            End Using
            oCon.Close()
        Catch ex As Exception
            If oCon.State = ConnectionState.Open Then oCon.Close()
        End Try

    End Sub

Kan iemand mij helpen?

 

[Pizara]

Je code is een beetje warrig, wat is dtOpdracht_Ophalen? een datatabel ofzo?

 

[Rspike]

Je code is een beetje warrig, wat is dtOpdracht_Ophalen? een datatabel ofzo?

dtOpdracht_Ophalen is een datatable

Dim dtOpdracht_Ophalen As New DataTable