Will try that, I got it to work with this:
Sub cmdAddstr_Click()
Dim strSQLinsert As String, FieldName As String
Dim Substr As Variant, i As Integer
' split into sub strings
Substr = Split(Nz(Me!MySelections.Value, vbNullString), ",")
' build field names and...