datagrid的即时刷新

Dim temprs As New ADODB.Recordset
   Dim tempsql As String
   On Error Resume Next
    tempsql = "Insert into Users(Name,Psw,pow) Values('" & txtName.Text & "','" & txtPsw.Text & "','" & cmbPow.Text & "')"
    temprs.Open tempsql, conn1, adOpenStatic, adLockOptimistic
    Adodc1.Recordset.AddNew
    Adodc1.Refresh
    DataGrid1.Refresh

   Dim temprs As New ADODB.Recordset
   Dim tempsql As String
   On Error Resume Next
    tempsql = "Delete from Users where ID = " & Text1.Text
    temprs.Open tempsql, conn1, adOpenStatic, adLockOptimistic
    With Adodc1
         .Recordset.Delete
         .Recordset.Update
         .Recordset.MovePrevious
    End With
    Adodc1.Refresh
    DataGrid1.Refresh

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/zhangjie_xiaoke/archive/2008/03/05/2151366.aspx