Nevermind... I was trying to put the data into the wrong column.  I changed it to nText and it all works now.

Thanks anyways!

Private Function vstr(strString)

    strString = Trim(strString)

    strString = Replace(strString, "'", "''")

    vstr = strString

End Function

This is not my code, it's the code of my predecessor.  So my first thought was...

THANK YOU!!!

That was exactly what I needed.

Cheers,

J. Miles