VB调出搜索到的内容

Question

大哥大侠们，我想问下，我用VB做了一个搜索的界面后，我想将搜索出来的内容生产excel，我用的搜索时ADO与access连接，搜索的内容显示在DataGrid1上，假如我根据一个条件搜索出来了一个结果，我想把这内容生成excel，那么该怎么编程啊？我的数据库名为abc.mdb，用的是里面一个叫故障统计表。拜托拜托了。

Answer 1

将 Excel 作为外部数据库，将 Access 表的内容“导出”到 Excel 的一张表。首先在 Excel 上打开 cn，然后：cn.Execute "INSERT INTO [sheet1$] SELECT * FROM [故障统计表] IN 'abc.mdb'"

Answer 2

我的程序是这样的，请问怎么改啊？我有点小白
Dim db As New ADODB.Connection
Dim sPath As String
 db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\abc.mdb;Persist Security Info=False"
 sPath = App.Path + "\backup.xls"
 If Dir(sPath) <> "" Then
  Kill sPath
  Else
  Call db.Execute("select * into Sheet1  In '" & sPath & "' 'excel 8.0;' from 车辆档案")
   MsgBox "导出成功", vbOKOnly, "提示"
   End If
   db.Close
   Set db = Nothing