Private Sub cboRec_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboRec.SelectedIndexChanged
Me.cboId.SelectedIndex = Me.cboRec.SelectedIndex
Dim Flag As Integer = Me.cboId.SelectedItem
dAd = New OleDbDataAdapter("Select * from Ingredients where ID = '" & Flag & "' order by Product", conString)
ds = New DataSet
dAd.Fill(dst, "Ingredients")
Me.gridIng.CaptionText = "Ingredients of " & Me.cboRec.SelectedItem
Me.gridIng.DataSource = ds
Me.gridIng.DataMember = "Ingredients"
Me.gridIng.Refresh()
End Sub