Sub btBuscar_Click
ListView1.Clear
Select Case btBuscar.Tag
Case "nombre"
ProgressDialogShow("Buscando por nombre...")
ExecuteRemoteQuery("SELECT nombre, telefono FROM telefonos WHERE nombre like'%" & txBuscar.Text & "%' ORDER BY nombre", COUNTRIES_LIST)
Case "telefono"
ProgressDialogShow("Buscando por teléfono...")
ExecuteRemoteQuery("SELECT nombre, telefono FROM telefonos WHERE telefono =" & txBuscar.Text , COUNTRIES_LIST)
Case "domicilio"
ProgressDialogShow("Buscando por domicilio...")
ExecuteRemoteQuery("SELECT nombre, telefono FROM telefonos WHERE domicilio like'%" & txBuscar.Text & "%' ORDER BY nombre", COUNTRIES_LIST)
End Select
End Sub