The second # sign delimiter around the date is missing. It should be:
JR_ID, #" & format(me.TrnDate,"mm/dd/yyyy") & "#,'" & me.TrnType & "'"
PS: For consistency with the rest of the string expression you might want to use a pair of contiguous double quote characters, "", to represent the...