With Adodc1
'.CommandType = adCmdText
'.RecordSource = "delete from 材料字典1"
' .Refresh '這句如果起作用,程序運行到這兒會報錯,但是報錯後數據庫中的表能夠清空,去掉這句數據庫就不能清空。
cnn.ConnectionString = .ConnectionString
cnn.Open
cnn.Execute "delete from 材料字典1"
cnn.close
End With