Agregar nombre a la exportación html

Tengo un código que me exporta un fichero en html del resultado de una consulta, me exporta con un nombre predeterminado pero deseo agregarle algo más a ese nombre y no he dado con la solución, el código es:

Private Sub CmdExpProdMus_Click()
Dim Tbl_Temp As DAO.Recordset
Set Tbl_Temp = CurrentDb.OpenRecordset("Select NombrePrograma FROM 21TSFObrasEnProgramasEmitidos", , dbReadOnly)
Tbl_Temp.MoveFirst
Do Until Tbl_Temp.EOF
DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", "D:\SGRADIOv1.0 - CAPTACIONES\SGRADIOv1.0 EXPORTACIONES\ProdMusical " & DLookup("NombrePrograma", "21TSFObrasEnProgramasEmitidos") & ".html"
Tbl_Temp.MoveNext
Loop
Tbl_Temp.Close
Set Tbl_Temp = Nothing

cmdExpPago_Exit:
Exit Sub
End Sub

Como se puede apreciar, en lo resaltado en negrita, toma el NombrePrograma de la tabla 21TSFObrasEnProgramasEmitidos pero desearía agregarle, por ejemplo, la fecha de emisión de ese programa y, como decía anteriormente no he dado con la solución.