Skicka rapport via E-mail med VBA för Access

Hej!

Denna kod är automat genererad från programmet för att skicka en rapport via E-mail.

Private Sub Kommandoknapp93_Click()
On Error GoTo Err_Kommandoknapp93_Click

    Dim stDocName As String

    stDocName = "Bekräftelse"
    DoCmd.SendObject acReport, stDocName

Exit_Kommandoknapp93_Click:
    Exit Sub

Err_Kommandoknapp93_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknapp93_Click
    
End Sub

Här finns en databas, med olika poster. Problemet är bara att denna kod skickar med alla poster. Jag vill bara skicka aktuell post, någon som vet hur jag kan skriva om koden för att det skall funka?