rivateSubcmdAdd_Click() Dimstr1AsString DimcnnAsNewADODB.Connection'数据库连接 IfcmdAdd.Caption="新增"Then'按钮为“新增”状态 cmdAdd.Caption="保存"'修改按钮标题为“保存”，提示用户保存数据 cmdCancel.Visible=True'显示“取消”按钮 lstbus.Enabled=False'禁止用户操作列表框 Loc