报表复选框出错

设置窗体1上有

1   组合框   其内容： 居民  农业 非农业

2 打印报表按钮      事件为打开报表1

报表1 上有   三个复选框

现想 根据组合框的值 对应报表中 的三个复选框的勾选

报表打开事件设置

 Private Sub Report_Open(Cancel As Integer)
If Forms![窗体1]![Text0] = "居民" Then
          Reports![报表1]![Check0] = -1
          Reports![报表1]![Check4] = 0
          Reports![报表1]![Check6] = 0

     ElseIf Forms![窗体1]![Text0] = "农业" Then
           
           
            Reports![报表1]![Check0] = 0
            Reports![报表1]![Check4] = -1
            Reports![报表1]![Check6] = 0
           
           
    
     Else
            Reports![报表1]![Check0] = 0
            Reports![报表1]![Check4] = 0
           
            Reports![报表1]![Check6] = -1
   
   
    End If
End Sub

结果出错：运行时错误“2448” 您不能将数值指定给这个对象

请教！！！！！！！！！！

附件如下：