这样试试:

strcom="insert into comment(userID,EnterDate,comText) values(" _ 
 & request.queryString("userID") _    '登陆进入的用户id
 & " , " & cal.selectedDate _         'calendar上选择的日期
 & " , '" & Replace(txtComment.Text,"'","''") & " ') " 
改成:
dim str as string
str=Replace(txtComment.Text,"'","''")
strcom="insert into comment(userID,EnterDate,comText) values(" _ 
 & request.queryString("userID") _    '登陆进入的用户id
 & " , " & cal.selectedDate _         'calendar上选择的日期
 & " , '" & str & " ') "