vb.net checkbox สามารถ binding Access Databset ที่เป็น yes/no จะต้องทำอย่างไรครับ

Try
            da.Fill(ds, "Product")
            dv = ds.Tables("Product").DefaultView
            bs.DataSource = dv 'ds.Tables("Product")
        Catch ex As Exception
            MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        txtProductID.DataBindings.Add("Text", bs, "ProductID")
        txtProductName.DataBindings.Add("Text", bs, "ProductName")
        txtDefaultUnit.DataBindings.Add("Text", bs, "DefaultUnit")
        txtLastCost.DataBindings.Add("Text", bs, "LastCost")
        lblCostAvg.DataBindings.Add("Text", bs, "CostAvg")
        txtSalePrice.DataBindings.Add("Text", bs, "SalePrice")
        txtSalePrice1.DataBindings.Add("Text", bs, "SalePrice1")
        txtSalePrice2.DataBindings.Add("Text", bs, "SalePrice2")
        'Dim iCurrentRecord As Integer = Me.BindingContext(ds.Tables("Product")).Position
        'Dim status As String = CStr(ds.Tables("Product").Rows(iCurrentRecord)("ProductStatus"))
        'If status = "0" Then
        'ckStatus.Checked = False
        'ElseIf status = "1" Then
        'ckStatus.Checked = True
        'End If
        ckStatus.DataBindings.Add("........", ds, "ProductStatus")
        dgvProductList.DataSource = bs
        objCurrencyManager = CType(Me.BindingContext(bs), CurrencyManager)
        objCurrencyManager_PositionChanged(Nothing, Nothing)