Using da As New OleDbDataAdapter("SELECT id,itemname FROM items", cnn) Dim dt As New DataTable daa.Fill(dt) ComboBox1.DataSource = dt ComboBox1.DisplayMember = "itemname" ComboBox1.ValueMember = "id" End Using