Ecco qui di seguito un esempio completo...

codice:
Dim DB As DAO.Database
Dim rst As DAO.Recordset

    Set DB = DBEngine.OpenDatabase(".\db.mdb")  'Apertura DB
    Set rst = DB.OpenRecordset("Tabella", dbOpenTable) 'Apertura Tabella
    rst.Index = "IndiceTabella"  'Impostazione Indice per la ricerca
    rst.MoveFirst    'posizionamento sul promo record
    rst.Seek "=", "ValoreDaCercare"   'Ricerca del valore =
    If Not rst.NoMatch Then 'Se lo trovi...

    End If
    DB.Close
Set rst = Nothing
Set DB = Nothing
Spero ti sia d'aiuto!! Fammi sapere...
Ciao!!:gren: