关于dategrid控件的小问题

代码:     SQLext DBN, "delete * from slots_serach"     If lstPort.Text = "" Then         Exit Sub     End If     stbState.Panels(1).Text = "正在查询中......"     Dim rs As New ADODB.Recordset     Dim temp_text As String     temp_text = "SELECT * FROM slots_info WHERE (((slots_info.ne_name)=""" & cboNename.Text & """) AND ((slots_info.src_vc4)="""") AND (slots_info.src_board=""" & cboBoard.Text & """) AND (slots_info.src_slot=""" & lstPort.Text & """))"     Set rs = SQLquery(DBN, temp_text)     rs.MoveFirst     While Not rs.EOF         temp_text = "insert into slots_serach(ne_name,slot_level,src_sys,src_board,src_vc4,src_slot,snk_sys,snk_board,snk_vc4,snk_slot) values (""" & rs.Fields(0).Value & """,""" & rs.Fields(1).Value & """,""" & rs.Fields(2).Value & """,""" & rs.Fields(3).Value & """,""" & rs.Fields(4).Value & """,""" & rs.Fields(5).Value & """,""" & rs.Fields(6).Value & """,""" & rs.Fields(7).Value & """,""" & rs.Fields(8).Value & """,""" & rs.Fields(9).Value & """)"         SQLext DBN, temp_text         rs.MoveNext     Wend     DBclose 其中SQLext为使用adodb.command对象做的过程，参数1为数据库，参数2为SQL语言文本 SQLquery为使用adodb.recordset对象做的函数，参数同SQLext，用于返回查询结果记录集。   数据。why??? 现在我想实现每次执行上面过程后就会自动更新dategrid显示的数据为最新，应该怎么修改代码？？  在窗体上加了个ADODC的控件，数据源是上面过程中的添加记录的slots_serach表，在窗体上在加一个dategrid控件，数据源指向ADODC控件。问题是：在上面过程“WEND”后加入ADODC1.Refresh和Dategrid.Refresh，dategrid控件显示都不能显示最新的insert into后的数据，但如果在添加一个按钮，代码写ADODC1.Refresh 在执行完以上过程后，再点这个按钮，就能将dategrid控件表格更新显示最新 谢谢各位高手