vb6的问题。。求解释。。大神们进来阿。。

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



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