Enviar Informe por correo electrónico desde REGISTRO ACTUAL de Formulario

[kommando]

Buenas a todos,

En un formulario tengo un boton de comando para enviar un informe por
correo electrónico. Este es el código:

Private Sub Enviar_Click()

On Error GoTo Err_Enviar_Click

Dim stDocName As String
stDocName = "Informe"
DoCmd.SendObject acReport, "Informe", acFormatRTF,
Me.ComercialAsignado

Exit_Enviar_Click:

Exit Sub

Err_Enviar_Click:

MsgBox Err.Description
Resume Exit_Enviar_Click

End Sub

Quisiera saber cómo puedo hacer para agregar un criterio que me
permita enviar el informe del registro actual del formulario.

Muchísimas gracias.