插入数据后不能立即更新，该怎么解决。要关闭窗口再打开才可以见。
该怎么解决？

刷新啊,就是重新从数据库读数给datagrid.

可是右键不能用阿

不用右键的吧，在按钮里加个刷新命令，2楼是这个意思吧，用 refresh?还是update?

加个adodc1这样子你的样程序就简单多了
Adodc1.connectionstring = connectionstring
= adCmdText
Adodc1.RecordSource = "select * from 表名"
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "数据库无记录!"
Else
Set DataG1.DataSource = Adodc1
DataG1.Refresh
End If
添加表的时候，可以先添加表，然后再加上以上代码？

当然不是右键，那样的话就不行了，我们要的是添加后自动刷新。可以用比如下面的代码（一些地方得根据你自己文件名、数据库名改一下）：
Function datashow()
    Dim rs1 As New ADODB.Recordset
    rs1.CursorLocation = adUseClient
    rs1.Open "select * from zgdagl", conn, adOpenKeyset, adLockReadOnly
    Set DataGrid1.DataSource = rs1
    DataGrid1.Refresh
End Function
然后在你的addnew按钮的click下面离endsub最近的地方(即除了endsub以外就是本过程的最后一行）引用为个函数：datashow

做一个刷新，我是多做一个按钮解决的
Private Sub Command7_Click()
    On Error GoTo myerr
      If MsgBox("确定要修改吗？", vbQuestion + vbYesNo, "提示") = vbYes Then
      
        DataGrid1.AllowUpdate = True
      Else
        DataGrid1.AllowUpdate = False
   
   End If
    Command7.Visible = False
    Command8.Visible = True
   
myerr:
End Sub
————————————————————
Private Sub Command8_Click()
  If conn.State <> 1 Then
            conn.Open connstring
        End If
        
    If MsgBox("数据库已修改！", vbInformation + vbOKOnly, "提示") = vbYes Then
   
        DataGrid1.AllowUpdate = True
      Else
        DataGrid1.AllowUpdate = False
   
   End If
    Command7.Visible = True
    Command8.Visible = False
End Sub

datagrid本来就可以直接写数据进去的，呵呵 我只是让他能不能写

loveve的方法很不错，我在尝试用到我的毕业设计中