Question : Append csv text to table

Hi there - hoping someone can help me with this ;

I have a variable containing  comma delimited text values ('aaaaa','bbbbbb' etc)  I'd like to append these to a table ( single column ) using Vb.


Access 2003

thank you,

d.

Answer : Append csv text to table

Dim arr
Dim x
arr = Split(myvariable, ",")

For x = 0 To UBound(arr)
CurrentDb.Execute "Insert into mytable (myfield) Values('" & arr(x) & "')", dbFailOnError
Next
x