สอบถามค่ะ ต้องการให้ Textbox พิมพ์อักขระพิเศษได้ค่ะ vb.net

... ใส่ความคิดเห็นตรงนี้.......พิมพ์ไปแล้ว มัน Error ประมาณนี้ค่ะ

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in System.Data.dll

Additional information: Incorrect syntax near 'S'.

Unclosed quotation mark after the character string ')'.

ขอดูโค๊ด ตรงที่ใช้ SQL หน่อยครับ

... ใส่ความคิดเห็นตรงนี้.......
If txtstatus.Text = "บันทึกข้อมูล" Then
DialogResult = MessageBox.Show("คุณต้องการบันทึกข้อมูลหรือไม่ ?", "บันทึกข้อมูล", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
End If
If txtstatus.Text = "อัพเดท" Then
DialogResult = MessageBox.Show("คุณต้องการแก้ไขข้อมูลหรือไม่ ?", "แก้ไขข้อมูล", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
End If

If DialogResult.ToString() = "Yes" Then

If txtstatus.Text = "บันทึกข้อมูล" Then

sql = "Select id_head,name_head from tbheadpaper Where id_head = '" & txtid_head.Text & "'"
da = New SqlDataAdapter(sql, conn)
dt = New DataTable
da.Fill(dt)

If dt.Rows.Count > 0 Then
iUse = True
MessageBox.Show("มีข้อมูลอยู่แล้ว / ทำการตรวจสอบข้อมูล")
Return
End If

Dim sqlinsert As String = "insert into tbheadpaper (id_head,name_head) values ('" & txtid_head.Text & "','" & txthead.Text & "')"

Dim com As SqlCommand = New SqlCommand()

com.CommandText = sqlinsert
com.CommandType = CommandType.Text
com.Connection = conn

com.ExecuteNonQuery()


'conn.Close()
MessageBox.Show("บันทึกข้อมูลเรียบร้อย")
txtstatus.Text = "บันทึกข้อมูล"
txtid_head.Focus()
Clear()
DetailedData()

ต้อง Check ข้อความทั้งหมดก่อนรอบนึง ถ้าหากเจอ ' ให้เพิ่มไปอีกตัว เช่น MILL'S TEST CERTIFICATE ก็จะเป็น MILL''S TEST CERTIFICATE ครับ

เปลี่ยนจาก >= มาเป็น = แค่นี้ก็เตือนแค่รอบเดียวแล้วครับ