skrypt VBS z błędem

Sub termin
err=PB.SetReturnValue(1)
err=PB.GetItemLong("naglowek", 1, "doksprzed_id", doksprzed_id)

q=    "select case when ds.warplat_id = w.warplat_id then 1 else 0 end as limit " 
q=q & "from doksprzed as ds"
q=q & " join alokdok as a on ds.doksprzed_id = a.dokpod_id"
q=q & " join zamodb as z on a.doknad_id = z.zamodb_id"
q=q & " join warplatpoz as w on ds.warplat_id = z.warplat_id"
q=q & " where a.typdok_nad = 11 and ds.doksprzed_id =" & doksprzed_id

err = PB.SQLSelect( "pobierz_limit", q )
err = PB.GetItemString("pobierz_limit", 1, "limit", wynik)

if wynik = 0 then
   MesBox = MsgBox ("Termin płatnoći na fakturze i zamówieniu od odbiorcy jest różny. Czy zatwierdzić fakturę?", vbYesNo , "UWAGA")
 if  MesBox = vbYes then
   err=PB.SetReturnValue(-1)
end if
end if

end sub