Aşağıdaki kodları kendine göre düzenleyerek test edebilirsin büyük ihtimalle yaşadığın sıkıntı karakterin farklı gitmesinden kaynaklanıyor.

<%
dsn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=111.111.111.111; Port=3306; Option=131072; UID=root; pwd=rootcuk; db=karinca;"
set baglanti = server.CreateObject("ADODB.connection")
baglanti.open dsn

Deger = "Karınca Yiyen Hayvanlar"

Set Degerbul = Baglanti.Execute("Select * From Tabloadi where Sütunadi like '"&Deger&"'")
If Degerbuk.Eof Then
Response.Write("Kayıdı Bulamadım")
Else
Do While(Not Degerbul.Eof)
Response.Write(Degerbul("Sütunadi"))&"<br>"
DegerBul.Movenext : Loop
End If
%>