关于datagrid 的问题

Question

下段程序编译时出错！出错信息为找不到datagrid1.source方法或数据类型！为什么？
Private Sub Command1_Click()
Set cmd = New ADODB.Command
cmd.ActiveConnection = db
cmd.CommandText = "select from 学生 where 学号=text1.text"
cmd.CommandType = adCmdStoredProc
cmd.Execute
DataGrid1.DataSource = rst
End Sub

Answer 1

adCmdStoredProc 这个好象没有定义adCmdText  查询应该是用这个

Answer 2

还有我想你要做的是 
cmd.CommandText = "select from 学生 where 学号=" & text1.text

Answer 3

一定要用command对象吗？如果用recordset对象，可以参考：Private Sub Command1_Click()Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.Open "C:\Test.mdb"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient     
rs.Open "select * from 学生 where 学号='" & Text1.Text & "'", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rs 
End Sub'必须指定游标类型，详情参见
'http://expert.csdn.net/Expert/topic/2943/2943672.xml?temp=.965008

Answer 4

cmd.CommandType = adCmdText
给对象赋值应该用下面的语句
Set DataGrid1.DataSource = rs

Answer 5

set DataGrid1.DataSource = rst

Answer 6

set rs = cmd.Executeset DataGrid1.DataSource = rst