มีปัญหาใหม่มาถามค่ะ เกี่ยวกับ datagrid มันลบแถวไม่ได้ค่ะ (vb.net)

If (MsgBox("aaaaa", MsgBoxStyle.OkCancel)=MsgBoxResult.Cancel) Then
            MsgBox("cancel")
        Else
            MsgBox("ok")
            เอา ตรง Dim มาใส่นี้แทนน่ะครับ
        End If

    Private Sub cmd_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Delete.Click
        Dim SqlDelete As String
        Dim ComDelete As New OleDbCommand

        If (lblID_Doc.Text = "") Then
            Return
        End If

        If MessageBox.Show("ต้องการลบข้อมูล  หรือไม่", "แจ้งให้ทราบ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            SqlDelete = "DELETE * FROM Doctor"
            SqlDelete = "WHERE Id_doc = lbl_id.Text"
            ComDelete = New OleDbCommand(SqlDelete, Conn)

            With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With

            SqlDelete = "DELETE * FROM Doctor WHERE Id_doc = lblID_Doc.Text"
            ComDelete = New OleDbCommand(SqlDelete, Conn)
            ComDelete.Parameters.AddWithValue("lblID_Doc.Text", lblID_Doc.Text)
            ComDelete.ExecuteNonQuery()
        End If
        MessageBox.Show("ลบข้อมูลทันตแพทย์   เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Return
    End Sub

Private Sub Delbtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelBtt.Click
        If DataGridView1.SelectedRows.Count > 0 AndAlso MsgBox("ต้องการลบแถวที่เลือกใช่หรือไม่", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim sql As String = "DELETE * FROM EmpPay WHERE IDpayday = @IDpay"
                Dim cmd As New OleDbCommand(sql, con)
                cmd.Parameters.AddWithValue("IDpay", DataGridView1.SelectedRows(0).Cells("IdEmp").Value.ToString)
                cmd.ExecuteNonQuery()
                ShowData()
                MsgBox("OMG !! Impossible It Work !!!")
            Catch ex As Exception
                Dim errMessage As String = "เกิดข้อผิดพลาดเนื่องจาก"
                errMessage &= vbCrLf & ex.Message
                errMessage &= vbCrLf & ex.StackTrace
                MsgBox(errMessage, MsgBoxStyle.Critical)
            Finally
                con.Close()
                DelBtt.Enabled = False '<= มันจะ Enable เป็น true อีกทีตอนไหนอะ ??
            End Try
        End If
    End Sub

    Private Sub Delbtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelBtt.Click
        If DataGridView1.SelectedRows.Count > 0 AndAlso MsgBox("ต้องการลบแถวที่เลือกใช่หรือไม่", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim sql As String = "DELETE FROM Payrollday WHERE IDpayday = @IDpayday"
                Dim cmd As New OleDbCommand(sql, con)
                Dim idPayDay As String '<-- ถ้า IDpayday เป็นตัวเลขก็แก้เป็น integer
                Dim totalRowEffect As Integer = 0
                For Each dgr As DataGridViewRow In DataGridView1.SelectedRows
                    idPayDay = dgr.Cells("IDPayday").Value.ToString
                    ' ถ้า .Cells("IDPayday")  ไม่ได้ เปลี่ยนเป็น .Cells(0) ถึง .cells(1000) ต้องโดนซัก column แหละ ^^
                    cmd.Parameters.AddWithValue("@IDpayday", idPayDay)
                    Dim rowEffect As Integer = cmd.ExecuteNonQuery()
                    If rowEffect > 0 Then
                        totalRowEffect += rowEffect
                    Else
                        MsgBox(String.Format("ในตาราง Payrollday ไม่มี IDpayday = {0}", idPayDay), MsgBoxStyle.Exclamation)
                    End If
                Next
                If totalRowEffect > 0 Then
                    showData()
                    MsgBox(String.Format("คุณทำการลบทั้งหมด {0} rows", totalRowEffect), MsgBoxStyle.Information)
                End If
            Catch ex As Exception
                Dim errMessage As String = "เกิดข้อผิดพลาดเนื่องจาก"
                errMessage &= vbCrLf & ex.Message
                errMessage &= vbCrLf & ex.StackTrace
                MsgBox(errMessage, MsgBoxStyle.Critical)
            Finally
                con.Close()
                DelBtt.Enabled = False
            End Try
        End If
    End Sub

Private Sub Delbtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelBtt.Click
        If DataGridView1.SelectedRows.Count > 0 AndAlso MsgBox("ต้องการลบแถวที่เลือกใช่หรือไม่", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim sql As String = "DELETE FROM Payrollday WHERE IDpayday = @IDpayday"
                Dim cmd As New OleDbCommand(sql, con)
                Dim idPayDay As String '<-- ถ้า IDpayday เป็นตัวเลขก็แก้เป็น integer
                Dim totalRowEffect As Integer = 0
                For Each dgr As DataGridViewRow In DataGridView1.SelectedRows
                    idPayDay = dgr.Cells("IDPayday").Value.ToString
                    ' ถ้า .Cells("IDPayday")  ไม่ได้ เปลี่ยนเป็น .Cells(0) ถึง .cells(1000) ต้องโดนซัก column แหละ ^^
                    cmd.Parameters.AddWithValue("@IDpayday", idPayDay)
                    Dim rowEffect As Integer = cmd.ExecuteNonQuery()
                    If rowEffect > 0 Then
                        totalRowEffect += rowEffect
                    Else
                        MsgBox(String.Format("ในตาราง Payrollday ไม่มี IDpayday = {0}", idPayDay), MsgBoxStyle.Exclamation)
                    End If
                Next
                If totalRowEffect > 0 Then
                    con.Close() '<--เมื่อกี๊ลืมใส่ให้ ขออภัยอย่างแรง
                    showData()
                    MsgBox(String.Format("คุณทำการลบทั้งหมด {0} rows", totalRowEffect), MsgBoxStyle.Information)
                End If
            Catch ex As Exception
                Dim errMessage As String = "เกิดข้อผิดพลาดเนื่องจาก"
                errMessage &= vbCrLf & ex.Message
                errMessage &= vbCrLf & ex.StackTrace
                MsgBox(errMessage, MsgBoxStyle.Critical)
            Finally
                con.Close()
                DelBtt.Enabled = False
            End Try
        End If
    End Sub