Set col = datagrid.Columns.Add(8) ' "8" indicates a Combo column
With col
.Caption = "Some Field"
.FieldName = "SOMEFIELD"
.Visible = true
.Width = 50
.ReadOnly = false
.DisableEditor = false
With .Items
.Add("Value 1")
.Add("Value 2")
.Add("Value 3")
End With
End With
