数据类型不匹配问题

dim data3 as integer         --->data3是excel表中的内容取出赋值
......
rs.Fields(3) = cint(data3)       --->数据类型不匹配错误，其中Fields(3) 字段在access中是数字(长整形),必须改为文本才能不出错，请问该怎么办呢？