Função simples para remover o acento

Function removeAcentos(ByVal texto As String) As String
   Dim vPos As Byte
   'Constantes de caracteres para remover o acento
   Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
   Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"

   'Varre o texto para identificar os caracterres
   For i = 1 To Len(texto)
      vPos = InStr(1, vComAcento, Mid(texto, i, 1))   'identifica a posição do caractere a ser subistituido caso exista
      If vPos > 0 Then
         Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)   'substitui o caractere
      End If
   Next
   removeAcentos = texto 'retorna o item
End Function

Senhores,

Vou inciar a apresentação do JQuery na apresentação do site assim como alguns conteúdos. e testes do mesmo.

para começar alguns links de referência.

Site: http://jquery.com/

Documentação Detalhada: http://docs.jquery.com/Main_Page

Theme Framework: http://jqueryui.com/themeroller/ - Muito util para criar temas prontos para Utilizar com o toolkit do JQuery

Embreve Tutorias e demos..