Cita:
Iniciado por kikevar 
Muchas gracias Avellaneda, la situacion es que si lo ago asi solo me imprime el primer folio con ese status, como declaro para que me imprima todos los folios?
Coloca un control DataGrid en el form (DataGrid1), referencia una conexión (LaConexion) y un recordset ADO (rs) y coloca el siguiente código:
rs.Open "SELECT * FROM MiTabla WHERE Status = 'PE'", LaConexion
Set DataGrid1.DataSource = rs 