Control de escritura usuarios

[Korreca]

Private Function Normalizar(ByVal cadena As String) As String

Dim con() as string = {á,é,í,ó,ú,Á,É,Í,Ó,Ú}
Dim sin() as string = {a,e,i,o,u,A,E,I,O,U}
For i = 0 to 9
Cadena = Replace(Cadena, con(i), sin(i))
next
Return Cadena
End Function

pasa esa función antes de meterlo en BBDD y cuando lo tengas implementado, pasala a los registros ya guardados con un update.