strSql = "Select miocampo from miaTabella where (miocampo = ' " & tuatxt & " ' ")