请问如何在access的vba里面查询本数据库的表格

绯红之王

抄了一段代码

Sub aa()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = CurrentProject.Connection
rst.Open "select * from bb", CurrentProject.Connection, adOpenStatic
End Sub

但是在CurrentProject.Connection这里提示  数据库对象已经初始化

代码怎么更改？

否则我要打开一个文件在里面用vba打开另一个文件

sgrshh29

rst.Open "select * from bb", cnn, adOpenStatic

绯红之王

sgrshh29 发表于 2011-8-25 16:39
rst.Open "select * from bb", cnn, adOpenStatic

不行，在Set cnn = CurrentProject.Connection处提示  数据库对象已经初始化

sgrshh29

那其他地方有没有什么代码冲突了。

绯红之王

sgrshh29 发表于 2011-8-26 10:08
那其他地方有没有什么代码冲突了。

就用了这一个过程，运行就停在set处