Access - SET FOCUS

Tengo este codigo

Private Sub Registro_Click()
On Error GoTo Err_Registro_Click

DoCmd.GoToRecord , , acNewRec

MsgBox "Registro insertado", vbInformation, "OK"

Dim Control As Control
Exit_Registro_Click:
Exit Sub

Err_Registro_Click:
MsgBox Err.Description
Resume Exit_Registro_Click

End Sub

Y lo que quiero es que al momento de insertar el registro me aparezca el Setfocus en la primer caja de texto

tenes que pones antes del end sub me.nombredetucajadetexto.setfocus

Saludos

Rodolfo