Visual Basic - Búsquedas y tildes

Sabe alguién como realizar una búsqueda de un registro utilizando el método FindFirst para que acepte el acento, me explico: quiero buscar un valor que lleva acento e introduzco el mismo pero sin él me dice que no lo encuentra y sin embargo si está pero con tilde, cómo puedo solucionar esto. Gracias.

Probablemente tengas que crear una función que recorra una cadena y busque caracteres con tilde y los pase a normales antes de hacer la búsqueda.

Lo primero es pasar la cadena a mayúsculas o minúsculas para reducir la búsqueda.

variable = UCase(Text1.Text)
For i = 1 To Len(variable)
Select Case Mid(variable, i, 1)
Case "Á"
variable1 = variable1 + "A"
Case "É"
variable1 = variable1 + "E"
Case "Í"
variable1 = variable1 + "I"
Case "Ó"
variable1 = variable1 + "O"
Case "Ú"
variable1 = variable1 + "U"
Case Else
variable1 = variable1 + Mid(variable, i, 1)
End Select
Next i
Text1.Text = variable1

Espero que te sirva de alguna ayuda.

No me ha servido de mucho, ya que lo que necesito es que incluya el acento en el criterio de búsqueda, siguiendo tu ejemplo si variable lleva algún acento éste módulo que me has enviado lo suprime y mi problema es que si le indico el acento me dice que existe pero si busco lo mismo pero no lo indico dice que no existe puesto que el que existe en la bd lleva acento. Igualmente te agradezco tu ayuda.