在VB6中利用ADO查询得到的记录集如何保存为新的数据库或表。请看代码（已正确运行）

Question

在VB6中利用ADO查询得到的记录集如何保存为新的数据库或表。请看代码（已正确运行）

Answer 1

在VB6中利用ADO查询得到的记录集如何保存为新的数据库或表。请看代码（已正确运行）对不起，忘记贴代码了。现在贴上，代码如下：Private Sub Command1_Click()
  Dim cnString As String
  cnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\btophr.mdb"
  Set cn = New Connection
  cn.CursorLocation = adUseClient
  cn.Open cnString
  Set adoBtophr1 = New Recordset
  adoBtophr1.Open "select * from btophr1 where (所在地 LIKE '%洛阳%') or (所在地 LIKE  '%新乡%') or (所在地 LIKE  '%郑州%')", cn, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = adoBtophr1
End Sub