如何批量执行如下命令??

wsxwsx1

With adoCMD
      .ActiveConnection = DFirst("OLEDB", "SETUP")
      .CommandType = adCmdText
     .CommandText = "'Alter   trigger   TR_SaveMoney   disable   '_
                               '   delete   from   AddMoney   '_
                               '   Alter   trigger   TR_SaveMoney   enable '
    '以上三条命令一次性执行可以吗???
      .Execute
   End With
   Set adoCMD = Nothing

wsxwsx1

怎么没有人回复哟