Doubles - Overflow

[Mc Brain]

Does anybody know how not to get "Overflow" in the last line of this code??

Dim dLevel As Double
    Dim dBitWiseAnd As Double
 
    'Just in case, the value of that field is rs!DAEGR_Level=2147483648 
    dBitWiseAnd = CDbl(rs!DAEGR_Level) And dLevel