Dim varItm As Variant
Dim ctl As Control
Dim mystr As String
Dim strSQL As String
Set ctl = Me.levels
For Each varItm In ctl.ItemsSelected
mystr = mystr & ctl.ItemData(varItm) & ","
Next varItm
mystr = Left(mystr, Len(mystr) - 2)
Me.TextboxName = mystr
DoCmd.GoToRecord , , acNewRec