Use this:
http://converter.telerik.com/[
^]
Function Compare(match As Match) As String
Dim v As String = match.Value
Select Case v
Case vbNullChar
Return "\0"
Case vbBack
Return "\b"
Case vbLf
Return "\n"
Case vbCr
Return "\r"
Case vbTab
Return "\t"
Case ChrW(26)
Return "\Z"
Case Else
Return Convert.ToString("\") & v
End Select
End Function
Protected Shared Function SqlEscape(str As String) As String
Return Regex.Replace(str, "[\x00'""\b\n\r\t\cZ\\%_]", AddressOf Compare)
End Function