dataenvironment!(編號:5414)

我使用以下的程式作搜尋會出現"應用程式或物件定義上的錯誤"
den.rsqid.Close
  den.Commands("qid").Parameters(0) = Text1.Text
  Set DataGrid1.DataSource = den
  Set DataGrid2.DataSource = den
  DataGrid1.DataMember = "qid"
  DataGrid2.DataMember = "qidsub"
  DataGrid1.Refresh
  DataGrid2.Refresh
不知該如何解決呢?