Problema con SetFocus al salir de una funcion publica access 2007

Saludos a todos. Me he pasado una hora leyendo en este grupo al cual
le debo casi todo lo que he aprendido y no encuentro manera de hacer
lo que expongo mas abajo.

Me he creado un formulario que simula un inputbox para pasarle el
contenido de un cuadro independendiente del mismo como criterio a una
consulta. Hasta ahi todo bien.

Pero quiero que cuando el usuario introduzca un dato incorrecto reciba
un mensaje de volver a introducir los datos y que el SetFocus se ponga
sobre el cuadro independiente del formulario, dicho control se llama
"Dato" y el formulario se llama FormInputBox.

Muchas gracias de antemano. Y no duden en hacerme cualquier
senalamiento sobre el codigo, pues no soy un experto programador.

P.D. Una otra pregunta: Ya este grupo no se puede configurar para leer
los mensajes desde WindowsMail, como uno lo hacia con Outlook? Yo
tengo Windows Vista.
Gracias.

He aqui mi codigo.



Public Function BautismoIndicePorLibro()
On Error GoTo errManejoError2501

Dim strCriterio As String
Dim strMensaje As String
Dim strTitulo As String

strNombreObjeto = "BautismoIndicePorLibro"
strMensaje = "Introduzca el LIBRO DE BAUTISMO a consultar..."
strTitulo = "< Programa Parroquial. Reporte de Bautismo por Libro

"

strCriterio = Forms!FormInputBox![Dato]
If IsNumeric(strCriterio) Then
strCriterio = "[BautismoLibro] LIKE '*" & strCriterio & "*'"
DoCmd.Close acForm, "FormInputBox", acSaveYes
'FALTA COMPROBAR QUE REPORTE NO ESTA ABIERTO..
DoCmd.OpenReport strNombreObjeto, acViewPreview, , strCriterio
Else
MsgBox "El tipo de Dato que introdujo no es correcto, intentelo de
nuevo"
Forms!FormInputBox.SetFocus 'Aqui no me da el Focus donde lo
quiero
Forms!FormInputBox!Dato.SetFocus 'Aqui no me da el Focus donde lo
quiero
Exit Function
End If
Exit Function

errManejoError2501:
If Err <> 2501 Then
MsgBox Err.Number & ": " & Err.Description
End If
End Function