请问如何将带换行的字符串复制给一个变量

[benzite]

例如：我想将
<table>
<tr>
</tr>
</table>
赋值给str

如果这样写：
dim str= "<table>
<tr>
</tr>
</table>"
汇报错：语句未结束

请问该怎样写呢？

[孟子E章]

x = Replace(x,vbCrlf,"")

[孟子E章]

例如
str= Replace(rs("Content"),vbCrlf,"")

[benzite]

^_^，谢谢你孟子E章。

这些内容：
"<table>
<tr>
</tr>
</table>"
不在数据库里，直接在网页上，我不想把它们中间的换行去掉，而是想比较美观的在源文件中显示。

如果想把这样的包括换行在内的字符串赋值给变量str，那该怎么办呀？

[showlin]

一样的阿。。。
dim ctrlf=chr(13) & chr(10)
dim str= "<table>" & ctrlf & "<tr>" & ctrlf & "</tr>" & ctrlf & "</table>"

[lisoon]

dim str= "<table>"&_
"<tr>"&_
"</tr>"&_
"</table>"

[KimSoft]

楼上的方法比较好，纠正一个小错误
dim str
str = "<table>" & _
"<tr>" & _
"</tr>" & _
"</table>"

[benzite]

呵呵，谢谢！