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: