Pb requete SUM si aucun enregistrement vb6

Bonjour tout le monde,
voilà j'ai un petit souci avec une application vb6 que je suis en train de développer. J'ai une table famille et une table produit. J'ai fait une requête SUM qui calcule le nombre de stock total par famille. Et le résultat s'affiche dans un listbox(nommé stock) en face des familles correspondantes (dans un listbox aussi nommé fam1). Voici mon code :

'Ici on calcule le nombre de stock total par famille'
For j = 0 To fam1.ListCount - 1
sql4.Open "SELECT SUM(stock) AS total1 FROM produit WHERE famille IN (SELECT id_famille FROM famille WHERE famille = '" & (fam1.List(j)) & "' ) ", adoCon
While Not sql4.EOF
stock.AddItem sql4!total1
sql4.MoveNext
Wend
Set sql4 = Nothing
Next j

Ceci marche mais lorsque je crée une nouvelle famille (à partir d'un autre form bien sûr) et bien j'ai un message d'erreur car la nouvelle famille ne contient pas encore de produit et donc aucun stock (logique). J'ai alors voulu dire si il n'y a pas de produit correspondant à cette famille, et bien on fait rien ou alors stock.list(j)=0. J'ai essayé différentes solutions mais sans aucun succès. c'est pourquoi je m'en remet à vous. Je vous remercie de votre aide.

Nague29