[2005] Categorie Doesn't Change When I Search A Title

Hi, I have a project that works with a database. It groups al my films per category. I use this code to group everything by category. The categories are chosen in the combobox cboCateogorie.

Private Sub cboCategorie_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCategorie.SelectedIndexChanged

If Not cboCategorie.SelectedValue Is Nothing Then
cboCategorie.DataBindings.Clear()
cboCategorie.DataBindings.Add(New Binding("Text", objDtsMuziekcollectie.tblCategorieen, "CategorieID"))
Dim dtvDVDInhoud As DataView

dtvDVDInhoud = objDtsMuziekcollectie.tblDVDInhoud.DefaultView
dtvDVDInhoud.RowFilter = "CategorieID = " & cboCategorie.SelectedValue.ToString
dtvDVDInhoud.Sort = "DvdID ASC"

objTblDVDInhoudBindingSource.DataSource = dtvDVDInhoud

Me.objTblDVDInhoudBindingSource.MoveFirst()

End If
End Sub


Now I've made a textbox and a button which I can search with. But I want that my category in the combobox changes when a film is selected with that search. Now I already have this code to search with a joker sign.

Private Sub btnZoek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoek.Click
Dim dtvZoeken As DataView
dtvZoeken = objDtsMuziekcollectie.tblDVDInhoud.DefaultView
dtvZoeken.Sort = "DvdID"

objTblDVDInhoudBindingSource.DataSource = dtvZoeken

dtvZoeken.RowFilter = "Titel like '" & txtZoekveld.Text & "*'"

End Sub


Ok, so what I want is the opposite off what I do when I select a category in a combobox. Now I actually select a film and this film also has an ID, namely DvdID and with that I want that the combobox shows the category where the film belongs to.