sql = Update VILLAGEMST set VCODE = 2 where TADDRESS like '*txtVilName.Text*' &
This code is meaningless. You're treating the txtVilName.Text as if it were automatically replaced in strings where it is mentioned. It doesn't work that way.
I highly suggest you pickup a beginners book on VB.NET and work through it. Your making a very basic mistake because you don't undertand simple string manipulations.
Change it to this:
sql = Update VILLAGEMST set VCODE = 2 where TADDRESS like '%' & txtVilName.Text & "'"
Also, this is horribly bad SQL as you're leaving yourself open to SQL Injection attacks. I suggest Googling for "SQL Injection Attacks" and "VB.NET SQL Parameterized queries" to read up on what that is and what to do about it.