Change this:
strSql2 = StringFormatSQL("INSERT INTO tblCheckTran(TPayment, TReceipt, TranMemo, fTransactionID)" & _
" VALUES ({5}, {6}, {7}, {8});", TPay, TRec, TMmo, ID2)
to this:
strSql2 = StringFormatSQL("INSERT INTO tblCheckTran(TPayment, TReceipt, TranMemo, fTransactionID)" & _...