Los formularios me dan error

Hola!! Estoy haciendo una base de datos, y hasta ahora me estaba saliendo bien, hice un formulario de clientes, agregue unos codigos, uno para que cuando abra el formulario no aparezcan los registro anteriores y me funciona :) pero luego agregue esto

Private Sub txtCod_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

para que al agregar los datos solo se ingresen los datos sean en MAYUSCULAS y me funcionaba, pero no se porque no ahora no funciona..
tambien en el formulario tengo unos combox en los que estan asociados a otras tabla donde mee tiene que mostrar una lista y agregue unos botones que me dirijen al formulario de esas tablas para agruegar nuevo registro y volver al fomulario anterior pero no me aparecen si no actualizo, actualizo y no me deja seleccionar de la lista. ¿no se porque? Espero me puedan ayudar!!!!