cara é o seguinte....  selecione todos registros sem problema.... depois mostre apenas os 10 primeiros assim :  SQL = "SELECT * FROM tab ORDER BY COD DESC" rs.CursorType = 3 rs.Open SQL 'USE OPEN OU EXECUTE..  QtdUsuarios = rs.RecordCount  For i = 1 to 10 -----rs("campos") -----rs.MoveNext Next   se der algum erro volte a postar..... falou .... |pirata|