由textbox控件输入的中文存入sqlserver的中文显示问题???

在显示的时候用一个函数格式化一下数据库中的文本的格式，比如下面的
Function HTMLFormat(sText)
if sText<>"" then
dim _text
_Text = sText
_Text = Replace(_Text, "&", "&amp;")
_Text = Replace(_Text, "<", "&lt;")
_Text = Replace(_Text, ">", "&gt;")
_Text = Replace(_Text, " ", "&nbsp;")
_Text = Replace(_Text, vbCrLf, "<br>")
HTMLFormat = _Text
else
HTMLFormat = sText
end if
End Function