Ciao, è possibile evitare quest'errore?

Error Type:
Microsoft VBScript runtime (0x800A000B)
Divisione per zero.


La riga è la seguente:

codice:
Sql = Sql & " sb = "& (rs("Sb") / strTotale) * 100 &", "
In effetti inizialmente strTotale è zero....