请教:"运行时错误'13'"类型不匹配的错误提示是何原因?

lvrongsheng

下面这段代码运行时有"运行时错误'13'"类型不匹配等错误提示:如图:帮我看看可能的出错原因,谢谢.

Private Sub 正式任用_Click()
    '定义临时字符串
    Dim s As Variant
    s = "是否要正式任用:" + Form_选拔任用录改子窗体.姓名 + " 同志 新的职务？"
     '弹出确认对话框
    If MsgBox(s, vbOKCancel) = vbOK Then
         '如果确认，就建立添加类别查询的一个实例
        Set r = CurrentDb.QueryDefs("任职情况行政职务")
         '创建SQL-Insert语句
        s = "insert into 任职情况行政职务表 ( 人员编号, 姓名, 行政职务) values(""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![人员编号] + """,""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![姓名] + """," + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![拟任职务] + ")"
         '设置记录集的SQL语句
        r.SQL = s
         '执行SQL语句
        r.Execute
         '提示成功
        MsgBox "添加成功！"
    End If
End Sub


调试时的错误提示定位在此行代码:
  s = "insert into 任职情况行政职务表 ( 人员编号, 姓名, 行政职务) values(""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![人员编号] + """,""" + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![姓名] + """," + [Forms]![信息录入主窗体]![选拔任用录改子窗体]![拟任职务] + ")"

fan0217

光看图片怎么知道啊？

传上你的库来，让大家分析分析。