Pon un If debajo de tu sql de llenar datagrid
algo asi
Cita: SqlM = "Select loccod,Locnom,locdir,locdis,locpro,Locdpt,locpai from Tloca "
If Txt_DATO01.Text <> "" Then SqlM = SqlM & " where Locnom like '" & Trim(Txt_DATO01.Text) & "%'"
eso es para buscar locales por nombre
el TXT_dato01 es el textbox donde pones lo que quieres buscar