Prova a fare questa modifica:

codice:
qVerifica = "SELECT IDImmobile FROM DescrizImmob WHERE IDImmobile = '" & lblValCodice.Caption & "'"