Private Sub cmdOrte_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdOrte.Click
        Dim cSQL
        Dim grdTempOrteStyle As New DataGridTableStyle
        Dim grdTempOrteColumStyle2 As New DataGridBoolColumn
 
        cSQL = "SELECT id, test , name FROM tbl_orte_test "
 
            With grdTempOrteColumStyle2
                .MappingName = "test"
                .HeaderText = "Auswahl"
                .Width = 60
                .AllowNull = False
                .TrueValue = 1
                .FalseValue = 0
            End With
 
            grdTempOrteStyle.GridColumnStyles.Add(grdTempOrteColumStyle2)
            grdOrteAuswahl.TableStyles.Add(grdTempOrteStyle)
 
        adapter.SelectCommand = New MySqlCommand(cSQL, frmMain.oConn)
        adapter.Fill(ds, "tbl_orte_test")
        grdOrteAuswahl.DataSource = ds.Tables("tbl_orte_test")
End Sub

    Private Sub grdOrteAuswahl_CurrentCellChanged(ByVal sender As Object, ByVal _
      e As System.EventArgs) Handles grdOrteAuswahl.CurrentCellChanged
        Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(adapter)
        Try
            adapter.Update(ds, "tbl_orte_test")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub