请大侠帮小弟我看看哪有有关问题，总是没有把表删除

请大侠帮我看看哪有问题，总是没有把表删除
Set RecLiumaBred = CnnLiuMaBred.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "brdfarrow"))
  While Not RecLiumaBred.EOF
  CnnLiuMaBred.Execute ("drop table brdfarrow")
  Text1.Text = "BRDFARROW 表删除"
  Wend

[解决办法]
CnnLiuMaBred 只要有写权限，完全可以删除啊
要看你打开的时候设置的什么权限了