Visual Basic - Validaciones

Quisiera saber como puedo hacer para validar en un textbox los acentos. Tengo el siguiente codigo

Private Sub txtUbicacion_KeyPress(KeyAscii As Integer)
cadena = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-" + Chr(8) + Chr(13)
If InStr(cadena, UCase(Chr(KeyAscii))) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Ademas de esto quisiera saber como puedo hacer para que al ingresar codigos en un textbox, ejemplo 001,002,003, me acepte los Ceros, ya que al insertarlos en SQL me coloca 1, 2, 3. Me dijeron que debia crear una mascara en la BD pero no se como hacerlo, alguien me podria ayudar por favor.

Hola mary veo que tienes varias dudas, para crear un formato simplemente utilizas la instruccion format de visual basic ejemplo.

tu tienes un campo numrico en la db y quieres que cuando cargues el registro en el form te muestre con un formato haces lo siguiente:

TXTCAMPO= FORMAT(RS.FIELDS(0), "000") ESTO LO QUE HACE ES QUE EL DATO QUE RECUPERES EN LA BASE DE DATOS QUE PARA ESTE CASO ES NUMERICO LO VA HA CONVERTIR A 3 DIGITOS OSEA QUE SI TE RECUPERA EL 9 TA VA HA MOSTRAR EN EL TEXTBOX LLAMADO TXTCAMPO 009.

ASI MISMO LO PUEDES HACER PARA FECHAS SIMPLEMENTE FORMAT(DATE, "DD/MMM/YYYY") ESTO LO QUE HACE ES MOSTRAR LA FECHA DEL SISTEMA CON EL NOMBRE CORTO DEL MES, Y 4 DIGITOS PARA EL AÑO, PUEDES VER MUCHOS MAS EJEMPLOS DE ESTE COMANDO EN LAS AYUDAS DE MICROSOFT.

LA OTRA INQUIETUD QUE TIENES YO LA MANEJO DE LA SIGUIENTE MANERA, ES UNA FORMA DE VALIDAR UN CAMPO PARA QUE SOLO ESCRIBAN EN EL LO QUE TU AUTORICES.

StrValido = "ABCDEFGHIJKLMNOPQRSTUVWXYZÁÉÍÓÚ12345/&()"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(StrValido, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
PARA ESTE CASO EL USUARIO SOLO PODRA INGRESAR LAS LETRAS DE LA A -Z, LOS NUMEROS 12345 Y CARACTERES ESPECIALES /&(), ESTO INCLUYE LAS VOCALES CON ACENTO ADEMAS CON ESTE CODIGO LO QUE ESCRIBAN EN MINUSCULA SE CONVERTIRA AUTOMATICAMENTE A MAYUSCULA.

espero haya solucionado en parte tu duda, cualquier cosa me puedes escribir y si te puedo ayudar gustosamente lo hare.

Un abrazo desde Medellin - Colombia