Accent Insensitive database querying

				
//**************************************
// Name: Accent Insensitive database querying
// Description:Since there is no easy way to have Access or SQL Server support accent insensitive queries, I had to create a function that would fix the problem. With this function, it is possible to turn any SQL query into an accent insensitive query. With a few little modifications, it will also work great with ASP.NET! Converting to C# is a no brainer.
// By: Karabunga
//
// Inputs:STRSQL = "SELECT * FROM MyTable WHERE animal LIKE '%" & AccIns("ELEPHANT") & "%'"
This will return any record where animal = Élephant, Elephant, éléphant, eléphant, etc. You Get the picture. Now have fun! :)
//
// Returns:Accent insensitive string to be used in a SQL query
//
// Assumes:The VB6 version of this can be found at http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=9858&lngWId=1
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1080&lngWId=10//for details.//**************************************

Public Shared Function AccIns(ByVal Str As String) As String
Dim sb As New System.Text.StringBuilder()
Dim CurLtr As Char
Dim x As Integer
For x = 1 To Len(Str)
CurLtr = Mid(Str, x, 1)
Select Case CurLtr
Case "e", "é", "è", "ê", "ë", "E", "É", "È", "Ê", "Ë"
sb.Append("[eéèêëEÉÈÊË]")
Case "a", "à", "â", "ä", "A", "À", "Â", "Ä"
sb.Append("[aàâäAÀÂÄ]")
Case "i", "ì", "ï", "î", "I", "Ì", "Ï", "Î"
sb.Append("[iïîìIÏÎÌ]")
Case "o", "ô", "ö", "ò", "O", "Ô", "Ö", "Ò"
sb.Append("[oôöòOÔÖÒ]")
Case "u", "ù", "û", "ü", "U", "Ù", "Û", "Ü"
sb.Append("[uûüùUÛÜÙ]")
Case "c", "ç", "C", "Ç"
sb.Append("[cCçÇ]")
Case Else
sb.Append(CurLtr)
End Select
Next
Return sb.ToString
End Function