Private Sub chklstbx1_ItemCheck(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.ItemCheckEventArgs) Handles chklstbx1.ItemCheck
            If e.NewValue = CheckState.Checked Then
                Try
                    chklstbx1.SelectedItem.Item("Sichtbar") = 1
                Catch ex As Exception
                    MsgBox("Exception")
                End Try
            Else
                Try
                    chklstbx1.SelectedItem.Item("Sichtbar") = 0
                Catch ex As Exception
                    MsgBox("Exception")
                End Try
            End If
            Try
                dbAdapter.Update(myDataSet, "MeineTabelle")
            Catch ex As Exception
                MsgBox("Sichtbarkeit konnte nicht geändert werden!")
            End Try
    End Sub

__________________________
Es ist nicht schlimm etwas nicht zu wissen, schlimmer ist, es nicht zu erfragen.
(alt. t?rkisches Sprichwort)