sql 中插入字符串的问题,请高手帮忙!!!UP 有分....

问题:插入特殊的字符串的时候报错,可能是因为字符串没有经过处理.请高手帮忙!!

Option Explicit
Dim con As New ADODB.Connection
-----------------------------------------------
'打开SQL 连接
Private Sub Form_Load()
con.ConnectionString = SQlConnectionstring
con.CursorLocation = adUseClient
con.Open
End Sub
---------------------------------------
'向表 TEST 插入一行,其中表 Test 只包含一列,类型为CHR(20)
'RndStr() 为 字符串随机产生函数.
Private Sub Command1_Click()
Dim asa As String, sql As String
asa = RndStr(20)

sql = sql & "DECLARE @X CHAR(20) "
sql = sql & "SELECT @X ='" & asa & "' "
sql = sql & "INSERT INTO TEST VALUES (@X)"
con.Execute sql
End Sub
------------------------------------------
字符串随机产生函数.
Private Function RndStr(leng As Long) As String
Dim i As Long
Dim ChrValue As Integer
Dim Result As String

While Len(Result) < 20
Randomize
ChrValue = Int((255 - 1 + 1) * Rnd + 1)
Result = Result & Chr(ChrValue)
Wend
RndStr = Result

End Function