codice:
arr_s= split(strS, ",")

'ciclo
for xx = 0 to UBound(arr_s)

strSQL="INSERT INTO tbl (a) VALUES ('"& trim(arr_strS(xx))& "')"
bn.Execute strSQL
next
tanto per fare un esempio