Replace ile yapabilirsin:
nesnen=rs("nesnen")
nesnen= Replace(nesnen,"kelime","<a href='http://www.site.com'>")
ya da
nesnen=rs("nesnen")
nesnen= Replace(nesnen,"kelime","<a href='http://www.site.com'>", 1, -1, 1)