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