antonio_777 respondió:
Fácil: dim campo as string dim rec as recordset campo=trim(combo1.text) MySQL="select "& campo &" from mitabla where "& campo &" like '"* text1.text *"'" set rec=Nothing set rec=MyDB.openrecordset(MySQL) if rec.eof msgbox "No hay registros" Endif Y listo.