non riesco a passare i valore sottocategoria (campo si/no) correttamente

tipo
risutatovecchio = 6
risutatovecchio = (cint(Categoria("num_cat"))-1)
sottocat = 0

if risultatovecchio = cint(0) then
strSql = " UPDATE Categoria SET num_Cat = " & ToSql(risutatovecchio) & ", sottocategoria = " & ToSql(sottocat) & " where IDCategoria =" & vecchiacategoria
cn.Execute strSql
else
strSql = " UPDATE Categoria SET num_Cat = " & ToSql(risutatovecchio) & " where IDCategoria =" & vecchiacategoria
cn.Execute strSql
end if


in questo modo non è mai ELSE ...
if risultatovecchio = cint(0) then <--- va bene scritto così il confronto?