编译错误，缺少表达式，求助

顶顶顶

看不清楚，貌似第二第三行后面等号后面没有表达式？

真的看不清楚

if ucase(text1.text)="c" or
ucase(text1.text)="s" or
ucase(text1.text)="sc"
then
adocdcl.recordsource="select * from"+text1.text
else
msgbox"该表不存在，请重新输入！", ,"查询"
text1.setfoucus
exit sub
end if
adodcl.refresh
end sub

楼上是源代码，执行后在if那里标注有语法错误

将前三行写在同一行

改成这样试试？
if ucase(text1.text)="c" or _
ucase(text1.text)="s" or _
ucase(text1.text)="sc" _
then
adocdcl.recordsource="select * from"+text1.text
else
msgbox"该表不存在，请重新输入！", ,"查询"
text1.setfoucus
exit sub
end if
adodcl.refresh
end sub

将then 也写在同一行

为什么不去看看语法结构呢？基础问题不解决，还谈什么学习？