error -2147467259 (80004005) en tiempo de ejecución

Buenos Días:

Se me esta presentando un error al ejecutar un formulario, el error es:

Se ha producido el error -2147467259 (80004005) en tiempo de ejecución : Error no especificado .

Quien me pueda colaborar o guiar como solucionarlo.

Este error me sale cuando ejecuto esta procedimiento en el TRMAnt.SetFocus

Private Sub VlrProfAnt_afterupdate()

If Not IsNumeric(VlrProfAnt.Value) And VlrProfAnt.Value <> vbNullString Then

VlrProfAnt.SetFocus

MsgBox "El Valor ingresado no es numerico"

Else

VlrProf = VlrProfAnt.Value

TRMAnt.SetFocus

End If

End Sub

Muchas Gracias por su ayuda para saber como corregirlo.