Question

vb datagrid显示问题（ado对象连接数据库）

窗体只设置一个datagrid控件用来显示数据，代码如下：
Private Sub Form_Load()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim cnstr As String

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\VB98\vb\mydb.mdb;Persist Security Info=False"
cn.ConnectionString = cnstr
cn.Open

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn

rs.Open "select * from 表1", cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs

'Set cmd = New ADODB.Command
'Set cmd.ActiveConnection = cn

End Sub

我的问题是：
这样设置后，datagrid并没有显示数据，请高手指教
怎样才能显示数据

送上全部大洋，谢谢各位

Answer 1

datagrid的属性里有一个属性Datasource的属性，需要连接到一个Adodc控件上。你连接了吗？不连接无法显示数据

Answer 2

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim cnstr As String
cn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\VB98\vb\mydb.mdb;Persist Security Info=False"
cn.ConnectionString = cnstr
cn.Open cnstr
sql = "select * from 表1"
rs.Open sql, cn, adOpenStatic, adLockOptimistic 'adOpenStatic或许用adOpenDynamic
Set DataGrid1.DataSource = rs
End Sub