尝试直接写sql语句,比如
Dim sql语句 = "select * from {配缸表} where 缸号 not in (select 缸号 from {成品入库表} where 缸号 is not null)"
Tables(e.Form.Name & "_table5").fill(sql语句,"数据源",false)