if Txtendereco.Text <> "" then
if clwhere <> "" then clwhere = clwhere & " and "
clWhere = clwhere & "Endereco = '" & txtEndereco.text & "'"
endif
if TxtTelefone.Text <> "" then
if clwhere <> "" then clwhere = clwhere & " and "
clWhere = clwhere & "Fone = '" & txtFone.text & "'"
endif
if clwhere <>"" then sql = sql & " Where " & clWhere