PrivateSubCommand1_Click()Adodc1.RecordSource="selectsum(金额)asmoneyfromTABLE1"Adodc1.RefreshIfAdodc1.Recordset.EOFThenMsgBox"没有可用金额",,"错误提示"Elselable2.text=Adodc1.Recordset.Fields(0).valueEndIfEndSub
