Dim IntegerToBoolean() As Boolean
IntegerToBoolean=Array As Boolean(False, True)
' to get a Boolean value from the query:
MyBoolean=IntegerToBoolean(Cursor1.GetInt("TheIntegerColumnName"))
Sub BooleanToInt(Check As Boolean) As Int
If (Check) Then
Return 1
Else
Return 0
End If
End Sub