关闭连接,以清除COMMAND中的内容,再重新打开
if DataEnvironment1.rsCommand1.State<> 0 then
   DataEnvironment1.rsCommand1.Closed
end if
set DataGrid.Datesource=DataEnvironment1
DataGrid.Datamember="Command1"