Beh ... rs e' tutto il recordset ... devi prendere il primo elemento ovvero

Me.Cod_Progressivo = rs(0).Value