错误提示“表达式中数据类型不匹配”问题

REORX

Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From 团组接待表"
'打开“团组接待表”数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '判断“文件编号”等文本框是否为空
    If IsNull(Me![文件编号]) = True Then
        '弹出提示“文件编号”文本框不可以为空信息
        MsgBox "请输入“文件编号”，它不可以为空值!", vbOKOnly, "输入“文件编号”"
        '把光标置于“职员ID”文本框内
        Me![文件编号].SetFocus
        '退出子过程
        Exit Sub
    ElseIf IsNull(Me![团组名称]) = True Then
        MsgBox "请输入“团组名称”，它不可以为空值!", vbOKOnly, "输入“团组名称”"
        Me![团组名称].SetFocus
        Exit Sub
    Else
        '循环判断该文件编号是否存在
        If Rs.RecordCount > 0 Then
            Rs.MoveFirst
            For i = 1 To Rs.RecordCount
                '如果存在，弹出信息并退出子过程
                If Rs("文件编号") = Me![文件编号] Then
                    MsgBox "该文件编号已经存在，请核实后重新输入!", vbCritical, "记录已经存在"
                    Exit Sub
                Else
                    Rs.MoveNext
                End If
            Next i
        End If
    End If
    '为保存团组接待表“查询语句”字符变量赋值
    STemp = "INSERT INTO 团组接待表 "
    STemp = STemp & "( 团组编号,文件编号,团组名称,所属国家地区,团组人数,来访时间,停留日期,"
    STemp = STemp & "目的地,下榻宾馆,是否是商务团,联系人及联系方式,备注)"
    STemp = STemp & "VALUES ('" & 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
    '刷新“团组接待表子窗体”子窗体
    Me![团组接待表子窗体].Requery
    '弹出“保存完成”的提示信息
    MsgBox "团组接待表已经保存完成！", vbOKOnly, "保存完成"
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
Exit_保存记录_Click:
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
    Exit Sub
Err_保存记录_Click:
    MsgBox Err.Description
    Resume Exit_保存记录_Click
End Sub


请老师朋友们帮我看看这段程序，这是一个录入数据存储按钮代码，在执行时总显示“表达式中数据类型不匹配”。
这段程序是引用其它老师的程序改过来的，在源泉程序中，输入字段全部是文字。而我的字段中“是否是商务团”字段是“复选框”字段，是不是因为这个原因导致程序不能被执行，如果是，我应该怎样来设置这个“复选框”呢？特此请教！

[ 本帖最后由 REORX 于 2007-12-26 10:17 编辑 ]

REORX

CUXUN大大,我试了一下,还是没有解决问题!
“新建、修改、删除”按钮的代码我都已经改好了，就是“保存”这个代码一直提示“类型不匹配”问题，请帮我看一下。我上传了程序！

另外，在查询“复选框”字段时，现在的输入的查询条件是“1”和“0”，有没有办法转换成文字，比如“是”或“否”呢？请教思路！祝：圣诞快乐

REORX

STemp = "INSERT INTO 团组接待表 "
    STemp = STemp & "( 团组编号,文件编号,团组名称,所属国家地区,团组人数,来访时间,停留日期,"
    STemp = STemp & "目的地,下榻宾馆,是否是商务团,联系人及联系方式,备注)"
   
    STemp = STemp & "VALUES ('" & Me![团组编号] & "','" & Me![文件编号] & "',"
   
    STemp = STemp & "'" & Me![团组名称] & "','" & Me![所属国家地区] & "',"
   
    STemp = STemp & "" & Me![团组人数] & ",#" & Me![来访时间] & "#,"
   
    STemp = STemp & "#" & Me![停留日期] & "#,'" & Me![目的地] & "',"
   
    STemp = STemp & "'" & Me![下榻宾馆] & "','" & Me![是否是商务团] & "',"
   
    STemp = STemp & "'" & Me![联系人及联系方式] & "','" & Me![备注] & "')"

团组编号是"自动编号"
团组人数是"数字型"
来访时间和停留日期都是"日期型"

我已经按CUXUN版主的提示做了修改，现在情况是不弹出类型不匹配的对话框，但提示INSERT INTO 语法错误，我找了好久也没有找到哪里不对，再烦请版主大大在帮忙看一下！