求助:表达式的结果可能不是宏的名称...

aslxt

如题,原来我的程序运行好好的,最近经常出现如图的提示,几乎所有代码都不能运行,请教高手如何解决

t小宝

你在激活事件中输入了什么？？？

aslxt

激活的时候,只是刷新了某个控件的数据:
  Dim conn As ADODB.Connection
  Dim rec As ADODB.Recordset
  Set conn = CurrentProject.Connection
  Set rec = New ADODB.Recordset
  rec.Open "SELECT DISTINCT ACCT_DAY FROM  卡信息", conn, adOpenStatic, adLockReadOnly
  Me.Text23 = rec.Fields(0)
其他事件同样,也是类似的提示,也就是说所有代码都不能运行