'Dim squery1 As Array()
        Me.DataGridView1.Rows.Clear()
        Dim sql As New MySqlDataAdapter("select * from student where branch='" & teacher_login.com_dept.Text & "' and semester='" & teacher_login.com_sem.Text & "'", mysqlconn)

        Dim ds = New DataSet

        sql.Fill(ds, "view")
        If (ds.Tables("view").Rows.Count > 0) Then


            For i = 0 To ds.Tables("view").Rows.Count - 1
                count = ds.Tables("view").Rows.Count - 1
                Me.DataGridView1.Rows.Add()

                Me.DataGridView1.Rows(i).Cells(0).Value = Trim(ds.Tables("view").Rows(i).Item(0).ToString)

                Me.DataGridView1.Rows(i).Cells(1).Value = Trim(ds.Tables("view").Rows(i).Item(1).ToString)
                Me.DataGridView1.Rows(i).Cells(2).Value = Trim(ds.Tables("view").Rows(i).Item(2).ToString)
                Me.DataGridView1.Rows(i).Cells(3).Value = Trim(ds.Tables("view").Rows(i).Item(3).ToString)
                Me.DataGridView1.Rows(i).Cells(4).Value = Trim(ds.Tables("view").Rows(i).Item(4).ToString)
                Me.DataGridView1.Rows(i).Cells(5).Value = Trim(ds.Tables("view").Rows(i).Item(5).ToString)
                Dim chk As New DataGridViewCheckBoxColumn()
                DataGridView1.Columns.Add(chk)
                chk.HeaderText = "Present/Absent"
                chk.Name = "chk"
                If TypeOf Me.DataGridView1.Rows(i).Cells(6) Is DataGridViewCheckBoxCell Then
                    Dim dgvCheckBoxCell As DataGridViewCheckBoxCell = Me.DataGridView1.Rows(i).Cells(6)
                    'Commit the data to the datasouce.
                    Me.DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)

                    Dim checked As Boolean = CType(dgvCheckBoxCell.Value, Boolean)
                    'MsgBox(checked)

                    MsgBox("ok")
 End If

Else
            Dim sql As String = "Insert into attendance values ('" & teacher_login.com_sem.Text.Trim & "','" & teacher_login.com_dept.Text.Trim & "','" & teacher_login.Dat_day.Text.Trim & "','" & teacher_login.com_hour.Text.Trim & "','" & teacher_login.com_tsub.Text & "','" & "Absent" & "')"
            Dim cmd1 As New MySqlCommand(sql, mysqlconn)
            cmd1.ExecuteNonQuery()
        End If

    Next

End Sub