Nothing

如果共存的话，就不能这样声明了，应当写成
    Dim ars As ADODB.Recordset
    Dim drs As DAO.Recordset