hata tam nerden kaynaklanıyor bilmiyorum ama sorgun yanlış gibi..

where kelime = .. yazmışsın. kelime muhtemelen string türünden bir veri olduğu için içerideki değer tek tırnak içinde olmalıdır.. yani şöyle olmalıydı sorgun


where Kelime='" & TextBox3.Text & "' Order...

daha açık yazarsam;

Kelime ' " & textbox3.text & " ' Order..
dikkat edersen tek tırnaklar içerisine yazdım string ifade olduğu için. eğer sayısal ifade olsaydı tırnaklar olmayacaktı...

bunun haricinde başka sorunlar da olabilir bilmiyorum )