VB读写Access并依据条件导出到Excel打印出来

如，用text1往access的“表1”，[字段1]中输入数据，text2往[字段2]中输入数据：
字段1 字段2
1001 1
1002 1
1003 2
1004 2
1005 3
1006 3
然后依据字段2中的某个数字，比如2 ，找出对应的1003和1004（当然也可能是多个数据，不一定），导出到Excel中并打印，我用VB加Excel可以实现这个功能，但是它有个缺陷，就是在运行程序后，如果打开某个Excel文件的时候隐藏了的Excel文件就会显示出来，非常容易出错，所以想到了用Access，请大神们给个代码出来，因为我不会操作Access代码

引用 

microsoft activex data objects 2.8 library
path 文件路径
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Persist Security Info=False插入数据

 con.Execute "insert into TEST (字段1,字段2)values('" & text1.text & "','" & text2.text & "')"查询数据
sql = "select * from test where 字段2='" & 1 & "'"
    rs.Open sql, con, 3, 3
    rs.Fields(0)  rs.Fields(1) rs.RecordCount rs.MoveNext  4个参数来操作记录集合

dim rs as new adodb.recordset dim cn as new adodb.connection cn.connectionstring=***(忘了怎么写了，用ado向导建一个连接然后把连接字符串复制下来） set rs=cn.execute ("select * from wps") do while not rs.eof 向excel赋值的语句 loop