Lỗi unable to cast object of type khi delete trong vb.net su dung linq?

[binh08dbb]

không hiểu sao mình xóa một dòng trong cơ sở dữ liệu nó báo lỗi
các bạn xem hộ mình nhé

 Public Sub XoaDonDatThucUong()
        Try
            Dim maloai As Integer = Integer.Parse(txtMaLoai.Text)
            Dim db As New DatacontectDataContext()
            Dim xoadulieu = (From p In db.DONDATTHUCUONGs _
                      Where p.MaDonDatThucUong = maloai _
                      Select p).single
            db.DONDATTHUCUONGs.DeleteOnSubmit(xoadulieu)
            db.SubmitChanges()
            HienThiDonDatThucUong()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

minh khac phuc duoc roi