[Resolvido]Levar foco para campo no sub-form

Fiz este código que lança uma data em uma caixa texto no subform

Pergunto: Como enviar o foco para esta caixa texto... como levar o cursor do mouse para a mesma?

Dim intNumMes As Integer
intNumMes = DateDiff("m", Forms!Fml_Individual!DataNasc, Now)
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CpMesNum] = " & intNumMes
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.txtData = Format(Now(), "dd/mm/yyyy")


Cumprimentos.

Ja havia tentado o SetFocus.. mas não sei porque não apresentava a propriedade...Agora deu.

Dim intNumMes As Integer
intNumMes = DateDiff("m", Forms!Fml_Individual!DataNasc, Now)
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CpMesNum] = " & intNumMes
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.txtData = Format(Now(), "dd/mm/yyyy")
Me.txtData.SetFocus

Cumprimentos.