"SELECT * FROM Immo WHERE Lift = " & ConvertBooleanToSQLString( _
  CheckBox1.Checked) 
 
Private Function ConvertBooleanToSQLString(Value as Boolean) as String
    if Value then
        Return "TRUE"
    else
        Return "FALSE"
    end if
End Function