VB导excel到access如何同时定义字段类型

Question

con1.Execute("select * into _" & PGe & "_Model_" & City_db(j)(0) & " in '" & syspath & "\template\data_" & PGe & ".mdb' from [" & City_db(j)(4) & "$a20:g65535] ")用上面的语句可以把excel导入access，但是不知道有没有办法实现同时定义字段类型。如下图，本意是想把最后两列导入为数字型，可是由于内容为空，导入后成为字符型了，导致运行报错，类型不匹配。

Answer 1

excel数据少的话，把最后两列为空的地方填充为0，再导入

Answer 2

感谢回复！ 
数据挺多的，有上百个sheet，且哪张为空不一定~

Answer 3

结帖：在Excel里面把后两列设为数字型，导入Access就是数字型。sheet很多，结构相同，只要选中所有sheet再改单元格格式，即可更新所有sheet格式。