ค้นหาชื่อ สระภาษาไทยแล้ว error ครับ

[diehard4]

      Dim sql1 As String, sn As String
      sn = "'%" & txtSearch.Text & "%'"
      sql1 = "Select * From tblEmployee Where EyName Like" _
      & sn & " Order by EyID"

ผมใช้คำสั่งนี้ ในการค้นหา ถ้าเป็นภาษาอังกฤษ หรือ ภาษาไทยที่เป็นตัวหนังสือไม่ขึ้น error แต่พอสระ ขึ้น error ครับ ไม่ทราบว่าต้องแก้ตรงไหนครับ 

[nonc31]

เครื่องหมาย  %  น่าจะเปลี่ยนเป็น  *  แทนครับ