Data: controllo (DAO)

[cla80]

Vi prego aiutatemi, è urgente per me (si tratta di lavoro).
Ho 2 textbox e 1 commandbutton1, ecco, all'evento clic del commandbutton1, prende il valore da me inserito nella prima textbox ed esegue questo controllo:

Prende dal da un un campo di un database (access) il valore e lo confronta con quello inserito nella prima textbox, muovendosi su tutti i record per trovare, una volta trovato il valore corrispondente, si muove sulla stessa riga e il valore di quel campo di quella stessa riga, deve corrspondere al valore inserito nella secondo textbox.

Vi chiedo questo aiuto (ho messo code per una lettura migliore)
Perdonatemi, e aiutatemi veramente. grazie.

p.s il tutto con DAO. (NON ADO)

[cla80]

Prende dal da un un campo di un database (access) il valore e lo

confronta con quello inserito nella prima textbox, muovendosi su

tutti i record per trovare, una volta trovato il valore

corrispondente, si muove sulla stessa riga e il valore di quel campo

di quella stessa riga, deve corrspondere al valore inserito nella

secondo textbox.

P.S. L'ho riscritto, perchè ho sbagliato sopra.

[xegallo]

dim db as dao.database
dim rs as dao.recordset


set db = opendatabase(percorso db)
set rs = ("SELECT [nome campo corrispondente alla prima txt], _
   [nome campo corrispondente alla second txt] FROM [nome tabella] _
   WHERE [nome campo corrispondente alla prima txt] = " & primaTXT.text)
if rs.recordcount > 0 then
   do until rs.eof
      if rs![nome campo corrispondente alla second txt] = secondaTXT then
         msgbox "OK"
      end if
   loop
end if
rs.close
db.close
set db = nothing
set rs = nothing

[cla80]

set rs = "SELECT ESP_AZIENDA, ESP_ANNO FROM PSESPL1 Where ESP_AZIENDA = " & txtAzienda.text"

Cosa sbaglio??

[xegallo]

set rs = "SELECT ESP_AZIENDA, ESP_ANNO FROM PSESPL1 Where ESP_AZIENDA = '" & txtAzienda.text" & "'"