find fejl i kort script

mit script:

do while not rs.EOF

a = a & "<tr valign='top'><td width='100' valign='top'><b>" & rs("navn") & ":</b></td><td width='75' valign='top'>" & FormatDateTime(rs("tid"), vbLongTime) & "</td><td width='5' valign='top'>-</td><td>" & tekst & "</td></tr>"

rs.movenext
loop

conn.execute("update chatsam set sammen = '<table>" & a & "</table>'")

har prøvet at udskrive ("update chatsam set sammen = '<table>" & a & "</table>'")...

får følgende:

update chatsam set sammen = 'Tor Torskenmund: 11:25:09 AM - fdghfdgh
Tor Torskenmund: 11:24:16 AM - fdghfdgh
osv..
'