' Gibt 1 zurück, wenn "Value" den Wert True hat
' andernfalls 0
Public Function SQL_CBool(ByVal Value As Variant) As Long
  If VarType(Value) = vbBoolean Then
    SQL_CBool = IIf(Value, 1, 0)
  ElseIf VarType(Value) = vbString Then
    SQL_CBool = IIf(Value = "1" Or Value = "-1" Or Value = "True" Or Value = _
      "Wahr", 1, 0)
  Else
    SQL_CBool = IIf(Val(Value) <> 0, 1, 0)
  End If
End Function

sSitz(i1, 1, 4) = CStr(SQL_Bool(.Text(i, 4)))

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de