怎样即时更新记录集啊？

dim conn as new adodb.connection
dim comm as new adodb.command
dim rs as new adodb.recordset……rs.activeconnection=conn
rs.open "select * from A where kid=1"
with comm
   .activeconnection=conn
   .commandtype=adcmdtext
   .commandtext="update A set k='aaa' where kid=1"
   .execute
end with
msgbox rs!k
rs!k显示的是更新前的内容，请问怎样才能看到更新后的内容，不能用时间等待的方法，程序中也没有数据环境。
程序中用的是Access数据库和ADO组件。