怎么修改时会报错？进来看看。

Dim mpath, k5 As String 
Dim x_bianhao2, x_bianhaofirst As String 
x_bianhao2 = 99 
x_bianhaofirst = 88 
mpath = App.Path 
If Right(mpath, 1) <> "\" Then mpath = mpath + "\" 
k5 = "UPDATE pathway SET 点2编号 = '" & x_bianhao2 & "' , 点2前点编号 = '" & x_bianhaofirst & "'" 
mlink = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + mpath + "wuliu.mdb" 
Adodc1.ConnectionString = mlink 
Adodc1.CommandType = adCmdUnknown 
Adodc1.RecordSource = k5 
Adodc1.Refresh 
DataGrid1.Refresh 
执行到Adodc1.Refresh报错，“对象关闭时，操作不被允许” 
请高手帮忙，谢谢！