Problem with boolean in DTS AxtiveScript

I just want to insert true value in a bit field
does anybody know why this is not working

Function Main()
DTSDestination("Active") = True
Main = DTSTransformStat_OK
End Function

Also tryed this

Function Main()
DTSDestination("Active") = 1
Main = DTSTransformStat_OK
End Function

the error is "unspecified error"
Please does somebody know what the problem isMay check this KBA (http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q196/9/59.asp&NoWebContent=1) reference.