ado 和datagrid不能更新的问题求教

Private Sub Command10_Click()
If = "良好" Then
  
  Me.Adodc1.RecordSource = "select * from 风表交接记录查询_交叉表 where 状态='良好'"
  Me.Adodc1.Recordset.Update
  Me.Adodc1.Refresh
  Me.DataGrid1.Refresh

End If
End Sub

提示 from 子句语法错误。对象refresh的Iadodc失败。

把Me.Adodc1.Refresh去掉，datagrid不能更新，点击command10没有任何反应，求解。