老师，请帮我看一下菜单代码错在哪里，谢谢：

If Tables("ZJSQB").current("XZH")= True Then
        If Tables("ZJSQB").current.IsNull("SJSB") Then
            MessageBox.Show("不能审核未经上报的数据!.")
        Else
            If Tables("ZJSQB").current.IsNull("合约") Then
                 MessageBox.Show("审核意见为空,请检查!.")
          Else              
            r("CBB2") = User.Name
            r("时间2") = Date.Today()
            r.Save()
        End If
     End If
    End If
提示：

编译错误：‘R’ is not acce accesible in this context because it is \'Private\'

错误代码： r("CBB2") = User.Name
请老师修改一下，谢谢