vSql = "SELECT * FROM nometabella WHERENome = '" & Replace(stingatext, "'", "''") & "'"