Set DataGrid1.DataSource = AstCls.ExecuteQuery(Sql语句)怎么不行?AstCls.GetRst是类中返回的Recordset

Question

类中:
Dim AccessCon As ADODB.Connection
Dim DataRst As ADODB.Recordset
Dim SqlCom As ADODB.CommandPublic Function ExecuteQuery(ByVal Query As String) As ADODB.Recordset        Query = Trim(Query)//Query是SQL语句没问题
    Set SqlCom.ActiveConnection = AccessCon
    SqlCom.CommandText = Query
    SqlCom.CommandType = adCmdText
    SqlCom.CommandTimeout = 15
    DataRst.CursorLocation = adUseClient
    Set DataRst = SqlCom.Execute
    Set ExecuteQuery = DataRst     
end function   在form中
Set DataGrid1.DataSource = AstCls.ExecuteQuery(Sql语句)提示错误为
Run-tim error '7004'
The rowset is not bookable

Answer 1

在form中
Set DataGrid1.DataSource = AstCls.ExecuteQuery(Sql语句)提示错误为set rs=ExecuteQuery(Sql语句)
Set DataGrid1.DataSource = rs

Answer 2

有可能query是保留字，将它改为strquery。在执行ExecuteQuery前，看不出AccessCon已经打开，先打开连接。

Answer 3

aduserclient 和 静态游标。就ok了