datagrid的显示问题

也不知道怎么了，我更新一个表，并把此表置成datagrid的数据源，但datagrid显示的数据很不稳定，主要是最后一个老是不显示，但也有时候也能显示全，怪怪的。大家帮着看看。（当显示不全时候，我到更新的数据表中exam_paper中看，数据记录是全的，但datagrid就是最后一个记录不显示出来）
....
While Not rs1.EOF
    stbh = rs1("st_bh")
    '根据相应条件更新exam_paper表，是正确的结果
    strsql2 = "insert into exam_paper...where st_bh=" & stbh
    conn.Execute (strsql2)
    rs1.MoveNext
Wend
Adodc1.Recordset.Requery
Adodc1.Refresh
DataGrid1.Refresh  '已与adodc1关联好了