新手，提问，请各位大师指教！谢谢。（ADO对象连接问题）

Question

在VB中应该怎么样使用ADO对象，需要在工程中添加一个ADO控件吗。
我这样写老报错 ： 实时错误，7004  行集合不能做为标签！
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
                        桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.closeAccess 数据库的 username 和 password 指的是什么的用户和密码呀。谢放。。

Answer 1

Dim cnn As New ADODB.Connection
dim rs as new adodb.recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Docume~1\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
if rs.state<>adstateclosed then rs.close
rs.open " select * from 库存 ",cnn,adopenkeyset,adlockreadonly
Set DataGrid1.DataSource = rs
rs.close
cnn.close

Answer 2

Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.close

Answer 3

Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.close

Answer 4

Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.close
Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.close

Answer 5

首先谢谢各位的参与.我在窗体上添加了一个ADO控件,一个DataGrid控件,
不知道到底是哪错了,DataGrid控件上就是没有
显示任何数据,也没有错误提示,我是这样写的.
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\桌面\新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 权限表")
cnn.Close
End Sub试遍了各楼的方法,就是不行.请教各位是哪方面的问题.谢谢.....

Answer 6

把这个 cnn.Close 去掉吗？   DataGrid 如果和 数据库 直接相连， 是数据源不能够关闭的 

Answer 7

Dim cnn As New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Haiyang\
  桌面\库存数据库.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = cnn.Execute("select * from 库存")
cnn.close
5楼的兄弟怎么做到的？ 让代码有颜色？