deg = UCase(Replace(Replace(TextBox10.Text, "ı", "I"), "i", "İ"))
Set rs = Baslangic.conn.Execute("Select count(Musteri.Firma) from [is_emri] " _
& "inner join Musteri on is_emri.müs_id = Musteri.mus_id where Musteri.Firma like '" & deg & "%';")
say=rs(0).value
msgbox say