Based on selected items in checkbox list, create coma (,) seperated string and insert the string in the column.
To populate and to display use following code
arrTemp = Split(IIf(IsDBNull(MyDatarow("DeptName")), "", MyDatarow("DeptName")), ",")
For x = 0 To UBound(arrTemp)
For y = 0 To chkDepts.Items.Count - 1
If chkDepts.Items(y).Value = arrTemp(x) Then
chkDepts.Items(y).Selected = True
End If
Next
Next