% Dim rstProcura Dim strSQL 'SQL query strSQL = "SELECT * FROM porcref ORDER BY id desc;" Set rstProcura = cntProcura.Execute(strSQL) %>