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|