l'ho messo prima di end sub... però mi esce il box


MsgBox "Seriale Registrato: -195652520" & vbCrLf & "Seriale non conforme sul PC: " & VolumeSerial("C"), vbCritical, "Impossibile avviare il software"



If VolumeSerial("C") = rs3("seriali") Or VolumeSerial("d") = rs3("seriali") Or VolumeSerial("e") = rs3("seriali") Or VolumeSerial("f") = rs3("seriali") Or VolumeSerial("g") = rs3("seriali") Or VolumeSerial("h") = rs3("seriali") Or VolumeSerial("i") = rs3("seriali") Or VolumeSerial("l") = rs3("seriali") Or VolumeSerial("m") = rs3("seriali") Or VolumeSerial("n") = rs3("seriali") Or VolumeSerial("o") = rs3("seriali") Then



questa opzioni fa quello che dico io nel senso :

controlla se nel campo "seriali" in tutti i recorso se trova il valore -195652520 se nn lo trova nn parte .