Private Sub Command2_Click()
Adodc1.RecordSource = "insert into 学号表 values ('" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub



就是个小问题而已。。。这里出错了。。
运行显示兑现关闭时，不允许操作。
谢谢大神！

阅览.对控件不太用，喜欢用代码直接控制数据库。

Adodc1.Recordset=？