I fixed it myself. Posting here for reference to others.
Dim DV As DataView = New DataView(CategorySect.Tables(0), "Type = 'ICD'", "Name", DataViewRowState.CurrentRows)
categorycombo.DataSource = DV
categorycombo.DisplayMember = "Name"
categorycombo.ValueMember = "Name"
Since I am just a beginner, I am not sure if this is the optimized way to do it or not, but this solved my purpose.