在VB中如何执行ACCESS的查询？

Question

我在ACCESS写的一个生成表查询，想在VB中直接显示生成表中的数据，请问我该如何先执行这个查询？

Answer 1

是一个生成表查询SQL语句如下
SELECT DISTINCT datepart("yyyy",[zydate5]) INTO abc
FROM ygjbxx;我想在VB中首先执行这个查询，生成ABC这个表，然后再在VB的中显示ABC中的数据
现在的问题就是该如何先执行这个查询

Answer 2

cnn.execute("SELECT DISTINCT datepart('yyyy',[zydate5]) INTO abc
FROM ygjbxx")

Answer 3

set Db as adodb.connection
set rec as adodb.recordsetSet Db = New ADODB.Connection
    Db.CursorLocation = adUseClient
    Db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\*.mdb;"
set rec =new adobd.recordset
 REC.Open "select * from (表名)", Db, adOpenStatic, adLockOptimistic
注(表名)在写的时候不用括号
另外还要在工程的references中做相应的设置