请问请问各位牛人！！！

[aabbcc_dd]

语句如下：功能是删除DATAGRID1中选中的元组，TEXT1取得要删除的用户名 ADODC1连接数据库表，DATAGRID1用ADODC1连接
Private Sub Command_s_Click()
Dim cc As Variant
cc = CVar(Trim(Text1.Text))
rs2.Open "select * from login where user = '" + cc + "'", cnn, adOpenKeyset, adLockOptimistic
If rs2.RecordCount > 0 Then
rs2.Delete
rs2.Update
Adodc1.Refresh
DataGrid1.Refresh
rs2.Close
Else
MsgBox "error"
End If
End Sub
问题是删除之后原来要删的还在。但是关了再打开该页之后就不见了。好象是不能刷新。可是我也用了刷新语句了呀。为什么不可以？

[aabbcc_dd]

???

[faysky2]

删除后过一段时间才更新数据库,你可以这样:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

......
rs2.Update
Sleep 500 '停500毫秒后再刷新.
Adodc1.Refresh
......