Сохранение значение CheckBox в таблицу MS Access - Visual Basic .NET

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim zag As String = TextBox1.Text
        Dim data_mess As Boolean
        Dim fam_im As Boolean
        Dim klass As Boolean
        Dim translit As Boolean
        data_mess = CheckBox1.Checked
        fam_im = CheckBox2.Checked
        klass = CheckBox3.Checked
        translit = CheckBox4.Checked
        Dim darhost As String
        Con.Open()
        darhost = "insert into nastr(zag,data_mess,fam_im,klass,translit) values('" & zag & "'," & data_mess & "," & fam_im & "," & klass & "," & translit & ")"
        Dim sql As New OleDbCommand(darhost)
        Try
            sql.Connection = Con
            sql.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Неизменено ...", MsgBoxStyle.Critical, "Ошибка")
        End Try
        Con.Close()
    End Sub