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: