Taí uma função pra tirar acentuação de Strings...
Public Function TiraAcento(ByVal sTexto As String) As String
Dim sComAcento As String = "ÄÅÁÂÀÃäáâàãÉÊËÈéêëèÍÎÏÌíîïìÖÓÔÒÕöóôòõÜÚÛüúûùÇç"
Dim sSemAcento As String = "AAAAAAaaaaaEEEEeeeeIIIIiiiiOOOOOoooooUUUuuuuCc"
Dim i As Integer
For i = 1 To sComAcento.Length
sTexto = sTexto.Replace(Mid(sComAcento, i, 1).ToString(), Mid(sSemAcento, i, 1).ToString())
Next
Return sTexto
End Function
-