รบกวนสอบถามปัญหาลบข้อมูลแล้ว บนตาราง DataGridView ไม่ยอมลบ

Sub Rescreen()
        Dim str As String = " SELECT * FROM Sale ORDER BY ProductID"
        Dim ds As New DataSet
        connectdb()
        Dim da As SqlDataAdapter = New SqlDataAdapter(str, cn)
        da.Fill(ds, "Sale")
        closedb()
        DataGridView1.DataSource = ds.Tables("Sale")
        ds.Tables.Clear()
    End Sub

 MessageBox.Show("ลบข้อมูลเรียบร้อยแล้ว", "ระบบตรวจสอบ")
 DataGridView1.Refresh()