set DataGrid1.DataSource = rs DataGrid1为什么时空的？

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
txtSQL = "select * from 采样点基本情况"
Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，
MsgBox rs.RecordCount
' rs.Open "select * from 采样点基本情况", cn, adOpenKeyset, adLockBatchOptimistic '连接
Set DataGrid1.DataSource = rs

注：Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，验证也是成功的，rs不为空，为什么DataGrid1显示时空的？