数据库拆分问题

greatbaijin

本人新手，学做一个数据库，有段代码在拆分前运行没有问题，但拆分后提示，运行到这里时，提示是无效操作，为什么呀?怎么修改？谢谢！
Dim adb As Database
  Dim brecordset As Recordset
  Set adb = CurrentDb
  Set brecordset = adb.OpenRecordset("任务信息", dbOpenTable)

上面代码中的“任务信息”是拆分前的表，拆分后变成链接表了。