CODE FOR POPULATING COMBOBOX USING DATASET

Dim ds as new Dataset
Dim sda as new OleDBDataAdapter("write query here",connection)

sda.Fill(ds,"tablename")

With cmbEOS
.DataSource = ds.Tables("Tablename")
.ValueMember = "fieldname
End With