Access - Concatenar para Nombre de Archivo

Dim ElTitulo As String

ElTitulo = "Cuenta de Cobro "&  {NumeroCuentaDeCobro] & " " & [ApartamentoEstadoCuenta] &  Format (Date," mmmm yyyy")

NumeroCuentaDeCobro= 123098

ApartamentoEstadoCuenta = "abc 123"

? "Cuenta de Cobro "&  NumeroCuentaDeCobro & " " & ApartamentoEstadoCuenta &  Format (Date," mmmm yyyy")

Private Sub BtnImprimirPDF_Click()

On Error GoTo Err_BtnImprimirEstadodeCuenta_Click

    Dim stDocName As String

    Dim criterio As String

    criterio = "NumeroEstadoCuenta= " & Me.NumeroEstadoCuenta

stDocName = "Estado de Cuenta"

DoCmd.RunCommand acCmdSaveRecord

Set Application.Printer = Application.Printers("PDFCreator")

    DoCmd.OpenReport stDocName, acNormal, , criterio

Exit_BtnImprimirEstadodeCuenta_Click:

    Exit Sub

Err_BtnImprimirEstadodeCuenta_Click:

    MsgBox Err.Description

    Resume Exit_BtnImprimirEstadodeCuenta_Click

End Sub

Dim "Estado de Cuenta" As String

"Estado de Cuenta" = "Cuenta de Cobro "& {NumeroCuentaDeCobro] & " " & [ApartamentoEstadoCuenta] & Format (Date," mmmm yyyy")

Dim ElTitulo As String

ElTitulo = "Cue ........

Dim "Estado de Cuenta" As String

"Estado de Cuenta" = "Cuenta ......