再完善两语句:
Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
应为:
Public Function ArrayFormat(ByVal expression As String, ParamArray formatException()) As String
strSQL = "INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUE ('{0}', '{1}',#{2}#,'{3}')"
应为
strSQL = "INSERT INTO 凭证记录表 (状态, 制单人, 制单时间, 关联单号) VALUES ('{0}', '{1}',#{2}#,'{3}')"