تحويل نعم ولا في اداة CHECKBOX الى نص

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Try



        Dim sql As String = " SELECT * FROM [tbl1] "

        Dim da As New OleDbDataAdapter(sql, Con)

        Dim dt As New DataTable

        da.Fill(dt)



        Dim rpt As New CrystalReport1

        rpt.SetDataSource(dt)



        Dim frmPrint As New frmPrint

        frmPrint.Text = "بيان بكافة الأجهزة"



        frmPrint.CrystalReportViewer1.ReportSource = rpt

        frmPrint.ShowDialog()



    Catch ex As Exception

        MsgBox(ex.Message)

    End Try

End Sub