Valeu amigo !
Sua postagem me ajudou muito fiz uma pequena adaptação no seu código para aceitar data formato dd/mm/yy
Private Sub DATA_AfterUpdate()
Me.DATA.InputMask = ""
End Sub
Private Sub DATA_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
GoTo FIM
ElseIf Me.DATA.InputMask = "" Or IsNull(Me.DATA.InputMask) Then
Me.DATA.InputMask = "99/99/9999;0"
End If
FIM:
End Sub