dim SQL as string
dim Rs as recordset
Dim Db as database
Dim Uslov
Ako je uslov string ide:
SQL="SELECT ImepoljaUslova FROM ImeTabele WHERE ImePOljaUslova='" & ulov & "'"
ako je Broj
SQL="SELECT ImepoljaUslova FROM ImeTabele WHERE ImePOljaUslova="& ulov
ser db=Currentdb()
Set Rs=Db.Openrecordset(SQL)
if rs.Recordcount=0 tnen'znaci nema podataka
ako nema podatka
else
ako ima podatak
endif