hmm I thought that answer I gave didn't make sense try adapting this that I just wrote, I've tested it ant it does what you're after instead fo the print strplit you'd have your sql
Sub splitem()
Dim strlong, strsplit As String, varsplit, var As Variant, i As Long
i = 0
strlong =...