求助:为什么对象不支持该属性或方法

[zzzhang]

Dim Conn　As New ADODB.Connection
Set Conn=CurrentProject.Connection
Dim Rst As New ADODB.recordset
Dim strSQL As String

strSQL= "SELECT 日期, " & _
"单据号, " & _
"供应商, " & _
"物料编码, " & _
"名称, " & _
"规格型号, " & _
"入库数量, " & _
"单价 " & _
"FROM 进出帐 WHERE " & ME.Combo1 & " LIKE ' " ME.Text3 & " ' "

Rst.Open strSQL,Conn,adOpenKeyset,adLockOptimistic
IF Rst.eof then
MsgBox "没有此信息查询 ",vbExclamation, "提示 "
Exit Sub
END IF

Datagrid1.DataSource=Rst

为什么运行到最后赋值给Datagrid1数据来源 "Datagrid1.DataSource=Rst "时出错,
提示 "运行时错误 '438 ' 对象不支持该属性或方法 "
求助各位,在此先谢谢各位了

[wwwwb]

运行环境、将STRSQL中的内容显示出来看看，RST中是否有记录

[wwwwb]

VB示例：
Private Sub List1_Click() '选择DataGrid中显示的字段
Dim sql, sql1 As String

sql = "select "
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
If Trim(sql1) = "" Then
sql1 = List1.List(i)
Else
sql1 = sql1 & ", " & List1.List(i)
End If
End If
Next

If Trim(sql1) = "" Then
sql1 = "*"
End If

sql = sql & sql1 & " from tableabc"

Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

[zzzhang]

TO:wwwwb
STRSQL查询语句是正确的,RST中有查询的结果有记录

[zzzhang]

是在ACCESS里

[WWWWA]

Datagrid控件是否注册？

[OracleRoob]

在设计模式，查看DataGrid属性，看看属性中手工设置是用的SQL语句，还是记录集。

[zzzhang]

在ACCESS中已经注册了,在窗体上有一个Datagrid控件