VB SQL code problem

Code:

 adoPrimaryRS.Open "insert into obrada1 (mjesec, prezime, sati1, sati2)
                        select Mjesec, Prezime,
                               5 + (sum(sati1)-5)*0.6* decode(sign(sum(sati1)-5),1,1,0)
                                   ,
                                   (sum(sati1)-5)* decode(sign(sum(sati1)-5), 1, 0.4, 1)
                        from   obrada
                        where  mjesec=1
                        group by Mjesec, prezime"
            , db, adOpenStatic, adLockOptimistic

Code:


if radni_sati <= norma then  sati1=norma, sati2=radni_sati-norma              
else
sati1=norma + 0.6 * (radni sati-norma)  sati2 = (radni sati-norma) * 0.4   
end if

' Nesto slicno ovome da upisuje u doticne tablice (iz tablice OBRADA u OBRADA1)

Code:

Public Function A()


 'i sad ovdje upisem cjeli kod iz VB Form-a ili ne?

End Function

Code:

Public Function decode(lista_parametara)
...
End Function

Code:

Public Function decode(????????)

adoPrimaryRS.Open "insert into obrada1 (mjesec, prezime, sati1, sati2)
                        select Mjesec, Prezime,
                               5 + (sum(sati1)-5)*0.6* decode(sign(sum(sati1)-5),1,1,0)
                                   ,
                                   (sum(sati1)-5)* decode(sign(sum(sati1)-5), 1, 0.4, 1)
                        from   obrada
                        where  mjesec=1
                        group by Mjesec, prezime"
            , db, adOpenStatic, adLockOptimistic


End Function

Code:

decode(sign(sum(sati1)-5),1,1,0)