ho il codice

codice:
   criterio1 = "[num_sequenziale] = " + Str(liv_o_MOD)
Dim dbs As DAO.Database
        Dim rst As DAO.Recordset


        'Get the database and Recordset
        dbs = DBE.OpenDatabase(nome1) 'CurrentDb
        rst = dbs.OpenRecordset("stanze")


        'Search for the first matching record   
        rst.FindFirst(criterio1)
mi da errore in rst.findfirst come
oggetto non supportato