请问这段代码错在哪里？

网络蜘蛛

Public Function CheckLinks() As Boolean
'检查到后台的数据库的链接，如果链接存在且正确的话，返回True。

  Dim dbs As Database, rst As Recordset

  Set dbs = CurrentDb

  '打开链接表查看表链接信息是否正确。
  On Error GoTo err

  Set rst = dbs.OpenRecordset("表_用户")
  rst.Close

    CheckLinks = True

    Exit Function
err:
    CheckLinks = False
    MsgBox "错误" & CStr(err.Number) & ": " & err.Description
End Function

这段代码在2003下运行正常，但把这个数据库转换为2007的格式后再运行，提示“错误13，类型不匹配”，请问是哪里的问题？

tmtony

引用DAO, 把
Dim dbs As Database, rst As Recordset
改为
Dim dbs As dao.Database, rst As dao.Recordset

网络蜘蛛

tmtony 发表于 2013-11-18 08:51
引用DAO, 把
Dim dbs As Database, rst As Recordset
改为

问题解决，多谢！

好运牛

网络蜘蛛 ：是access后台吗？

网络蜘蛛

好运牛 发表于 2013-11-19 20:15
网络蜘蛛 ：是access后台吗？

是。

好运牛

谢谢回复