Visual Basic - COMO DAR FORMATO O MASCARA A UN TEXTBOX

Hola, me pasa lo siguiente:
Tengo una base en access97 con una tabla que tiene un campo llamado codigo, a la cual le he añadido la siguiente máscara de entrada:
>AA\ AA;0;_
Con esto consigo (con 5 dígitos) que los codigos en vez de grabarlos así:
AAAA
los grabe de esta forma:
AA AA
Bien, pero el problema radica que en la aplicación (ADO) con cuatro text box para cada uno de los campos, en el campo código no doy con la forma de que enmascare de la misma forma, si introduzco AAAA la tabla devuelve en el grid AAAA, si lo hago con un espacio (manual) AA AA lo hace bien.

Lo que yo quiero es que automáticamente salte en el segundo dígito un espacio y salte al tercero.

He probado con MaskEdBox y si lo hace, pero me dice que no puede enlazar con el campo código... o sea que no me vale.

¿Alguien me echa una mano?
Gracias anticipadas

Por que no haces esto:
en el evento change del textbox
if len(txtcodigo)=4 then
temp1=left(txtcodigo,2) ' AA
temp2=rigth(txtcodigo,2) 'AA
cad= temp1 & " " & temp2
txtcodigo=cad 'AA AA
end if
'Espero que te ayude.

Veras, lo he puesto así.:

Private Sub Text2_Change()
Dim i As Integer
Text2.Text = UCase(Text2.Text)
i = Len(Text2.Text)
Text2.SelStart = i

If Len(Text2) = 4 Then
temp1 = Left(Text2, 2) ' AA
temp2 = rigth(Text2, 2) 'AA
cad = temp1 & " " & temp2
Text2 = cad 'AA AA
End If

End Sub

Ya que quiero que solo acepte mayúsculas (el campo código se llama Text2)., pero me dice que ERROR DE COMPILACION, VARIABLE NO DEFINIDA...

Gracias mil.

Prueba con el siguiente código en el evento Keypress del Textbox:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Len(Text1)
Case 0, 1, 3, 4
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case 2
KeyAscii = 32
Case Else
KeyAscii = 0
End Select
End Sub
Si tienes alguna duda, puedes ponerst en contacto conmigo a través del correo E.
Suerte y hasta otra