Ho una funzioncina di formattazione:

cod_agenzia = zeri(oRs_D_I("COD_AGENZIA"), 4)





Function zeri(ByVal nome_campo As String, ByVal numero_zeri As Integer)

Dim len_campo As Integer

len_campo = Len(nome_campo)

num_space = (numero_zeri - len_campo)

zeri = String(num_space, "0") & nome_campo

End Function


il problema è che il recordset può essere vuoto… e vorrei che venisse stampato il valore "0"..
come posso fare???