SQL2000插入数据出做???

Question

我用SQL2000想将执行了的SQL语句插入到数据库中一个表中但是总是提示出错.
错误: 第 1 行: '23' 附近有语法错误。 时间:2006-4-30 8:40:54
错误: 第 1 行: '243' 附近有语法错误。 时间:2006-4-30 8:42:34
错误: 第 1 行: 'wwb' 附近有语法错误。 时间:2006-4-30 8:52:12代码为:
Public Function pdcrsql(sql As String)
'先看是否为滚动记录
Dim sql1 As String
Dim sj As String
Dim rq As String
Dim zxzf As String
sj = Trim(Format(Time, "yyyy-mm-dd"))
rq = Trim(Format(Date, "yyyy-mm-dd"))
sql1 = "select 状态 from 状态记录表高 where 状态名='滚动生成SQL脚本'"
If jieguo(sql1) = "是" Then
'滚动记录
'插入数据库sql1 = "insert into SQL语句记录高(日期,时间,sql语句) values('" & Trim(rq) & "','" & Trim(sj) & "','" & Trim(sql) & "')"zhixing1 (sql1)
sql1 = "select sql语句 from SQL语句记录高 where 日期='" & Trim(rq) & "' and 时间='" & Trim(sj) & "'"
zxzf = jieguo(sql1)
runmath.SQLfoot (zxzf)Else
sql1 = "insert into SQL语句记录高(日期,时间,sql语句) values('" & Trim(Format(Date, "yyyy-mm-dd")) & "','" & Trim(Format(Time, "yyyy-mm-dd")) & "','" & Trim(sql) & "')"
zhixing1 (sql1)
End IfEnd Function
_______________________________________________
如果插入的语句是类似cr="'aaaaaaaaaaaaa'"就会出错
如果为cr="aaaaaaaaaaaaaaaa"就不回出错
出错的话就会提示没有闭合引号,请问应该怎么才能插入呀??

Answer 1

执行的SQL语句:
'执行SQL语句
Public Function zhixing(sql As String)
Dim rs As New Connection
Screen.MousePointer = vbHourglass
If rs.State = adStateOpen Then rs.Close
rs.Open Form1.cnn.ConnectionString
On Error GoTo b1
rs.Execute (sql)
rs.Close
Set rs = Nothing
Screen.MousePointer = vbDefault
'Debug.Print sql
'Call runmath.pdcrsql(Trim(sql))
Exit Function
b1: runmath.cuowut (Err.Description)
End Function