sqlstr = "insert into [项目明细子窗体]([项目类别],[来文单位],[来文时间],[项目名称],[项目情况],[批复时间],[批复名称],[批复文号],[批复金额（元）],[立项批复],[行业和分类],[合同额],[利润]) " _
& "select * from [项目明细] where [项目明细].[批复文号]=" & rst!批复文号
DoCmd.RunSQL sqlstr
直接print语句，明显的语法错误，也不知道你的字段命名规则，不能替你修改