.Refresh “對象關閉時，不允許操作”

With Adodc1

'.CommandType = adCmdText

'.RecordSource = "delete from 材料字典1"

' .Refresh '這句如果起作用，程序運行到這兒會報錯，但是報錯後數據庫中的表能夠清空，去掉這句數據庫就不能清空。

cnn.ConnectionString = .ConnectionString

cnn.Open

cnn.Execute "delete from 材料字典1"

cnn.close

End With