insert into语句语法错误

我在窗体上设立了几个字段，想要按下保存键将新值插入到数据表当中，写了如下一段代码。

Private Sub 保存_Click()
On Error GoTo Err_保存_Click
'定义保存“查询语句”的字符型变量
Dim STemp As String
    '判断“名称”等文本框是否为空
    If IsNull(Me![契约番号]) = True Then
        '弹出提示“契约番号”文本框不可以为空信息
        MsgBox "请输入“契约番号”，它不可以为空!", vbOKOnly, "输入“契约番号”"
        '把光标置于“契约番号”文本框内
        Me![契约番号].SetFocus
    ElseIf IsNull(Me![客户ID]) = True Then
        MsgBox "请输入“客户ID”，它不可以为空!", vbOKOnly, "输入“客户ID”"
        Me![客户ID].SetFocus
   
    ElseIf IsNull(Me![案件ID]) = True Then
        MsgBox "请输入“案件ID”，它不可以为空!", vbOKOnly, "输入“案件ID”"
        Me![案件ID].SetFocus
   
    ElseIf IsNull(Me![课ID]) = True Then
        MsgBox "请输入“课ID”，它不可以为空!", vbOKOnly, "输入“课ID”"
        Me![课ID].SetFocus
    Else
        '为保存项目“查询语句”字符变量赋值
        STemp = "INSERT INTO tblproject"
        STemp = STemp & "( 契约番号,客户ID,案件ID,案件名,课ID,开始日,终了预定日,纳品完了,请求月,"
        STemp = STemp & " 请求确定,入金预定日,入金完了,契约金额(円),入金金额(円),日元汇率,入金金额(元),备注)"
        
        STemp = STemp & "VALUES( '" & Me![契约番号] & "','" & Me![客户ID] & "','" & Me![案件ID] & "'," & Me![案件名] & "',"
        STemp = STemp & "'" & Me![课ID] & "','" & Me![开始预定日] & "','" & Me![终了预定日] & "',"
        STemp = STemp & "'" & Me![纳品与否] & "','" & Me![请求月] & "',"
        STemp = STemp & "'" & Me![请求与否] & "','" & Me![入金预定日] & "',"
        STemp = STemp & "'" & Me![入金完了] & "','" & Me![契约金额] & "',"
        STemp = STemp & "'" & Me![入金金额] & "','" & Me![日元汇率] & "',"
        STemp = STemp & "'" & Me![入金金额人民币] & "','" & Me![备注] & "')"
        '使用DoCmd对象的RunSQL方法执行查询
        DoCmd.RunSQL STemp
        '刷新“项目查询1 子窗体”子窗
        Me![项目查询1 子窗体].Requery
    End If
Exit_保存_Click:
    Exit Sub
Err_保存_Click:
    MsgBox Err.Description
    Resume Exit_保存_Click

运行时提示INSERT INTO 语法错误，字段中除日期部分为日期型，金额部分为数字型，其余都是文本型，请求大侠们帮我看看，可急死我了！