求助大神 ASP 提示错误信息Microsoft JET Database Engine '80040e14'

一个由POST方式提交表单后INSERT 数据库出现错误求解啊

表单名没有出错

<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserNum=ReplaceBadChar(Request.Form("UserNum"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr)
IF UserName<> "" And UserNum <> "" Then
UserPenName=ReplaceBadChar2(Request.Form("UserPenName"))
UserAge=ReplaceBadChar2(Request.Form("UserAge"))
UserPic=Request.Form("UserPic")
UserAddr=ReplaceBadChar2(Request.Form("UserAddr"))

'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr & Udep & UClass)

    StrSql="Select * From XcUserInfo Where UNumber='" & UserNum & "'"
    Set Rsu=Conn.Execute(StrSql)
        IF Rsu.Eof Then
        '------------------------------------------
        StrSql="Insert Into XcUserInfo(UserName,UNumber,Uage,UAddr,Pic,) Values('"& UserName & "','" & UserNum & "','"& UserAge & "','" & UserAddr & "','"&  UserPic & "')"
        'Response.Write(StrSql)
        Conn.execute(StrSql)
        '------------------------------------------
        Call UserOpr(" 增加证件：" & UserName)
        Call ShowMessAge("增加证件成功！","AdminInstu.asp")
        Else
        ShowMess("准考证号存在，请选择其他的学生学号！")
        End IF

End IF
'===========================================

 %>

错误信息
Microsoft JET Database Engine '80040e14'

INSERT INTO 语句的语法错误。

\AdminInStu.asp, line 111

我的QQ251020351

在线等