vba ACCESS EXCEL 导入数据 导出查询

怎么在Excel用VBA把数据导到access里，并把查询结果导出回来到Excel中

Sub 按钮1_Click()
'我要导入到 “D:\Myfund2010.accdb” 数据库下面的 “2010年11月1日 表”

'if(如果此数据库文件不存在）then 先创建这个文件
Else
    导入相应的表中
'    if（指定的表存在）then 询问“是否把原来的表删掉，替换成新表？”
'     在导入时，我要可以设定我的Excel 名称，Sheet名字，区域，以及每列的数据类型，有文本 数字 日期 3种格式。
'     如果不能自己定义，自己能识别出Excel原有的数据类型也可以。
   
End If

End Sub
Sub 按钮2_Click()
'   我要把导入数据后的Access 文件，更新相应的查询，，更新之后，把查询结果导入到我的Excel文件的第二个sheet 指定的区域
' 整个过程希望不要打开Access文件，就是点一下按钮，看不出来打开关闭Access

End Sub

并且最好能设置一个密码，没有我的密码，谁都能看见ACCESS 数据库，但是打不开。

坛子里有实例你自己搜索一下吧，具体的网址我忘记了。goog luck

不明白为什么要Excel-Access-Excel？