
Sayenizde "sqlite" diye bir şey olduğunu öğrendim.

Public Function turkcem(Metin As String) As String
Metin = Replace(Metin, "ı", "ı")
Metin = Replace(Metin, "I", "ı")
Metin = Replace(Metin, "i", "i")
Metin = Replace(Metin, "İ", "i")
turkcem = Metin
End Function
Public Function turkcem(Metin As String) As String
Dim result As String
result = ""
For i = 1 To Len(Metin)
If (Asc(Mid(Metin, i, 1)) = Asc("İ")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("I")) Then
result = result & "ı"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("i")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("ı")) Then
result = result & "ı"
Else
result = result & Mid(Metin, i, 1)
End If
Next
turkcem = result
End Function