Dim affectedCount As Long cmd.CommandText = sql 'insert, update, delete 语句 cmd.Execute affectedCount, , adExecuteNoRecords 'affectedCount 就存储了影响的行数