主题：[求助] Select 选出字段的值，怎么在表达式中用？

For Each R As Row In Tables("窗口1_Table1").Rows

    With R

        If ( R("课程") = (Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = '1' ) )

            .Checked = True

        Else

            .Checked = False

        End If

    End With

Next

这段代码报错：

编译错误：Expression expected

错误代码：If ( R("课程") = (Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = '1' ) )

另，Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = '1' 这段代码已经在SQL窗口中执行通过