VB.NET : อัพเดตข้อมูลทุก record ในฐานข้อมูลแล้วโชว์ข้อมูลทั้งหมดใน datagrid

 Dim xCount As Integer = 1

        Cm = New OleDbCommand("SELECT P_id FROM Product;", Cn)
        Dr = Cm.ExecuteReader
        If Dr.HasRows Then
            Dr.Read()
            xCount = Dr.Item(0)
        End If

        For x As Integer = 1 To xCount
            Cm = New OleDbCommand("SELECT * FROM Product WHERE P_id=" & xCount, Cn)
            Dr = Cm.ExecuteReader
            If Dr.HasRows Then
                Dr.Read()
                If Dr.Item(2) > 0 Then
                    Cm = New OleDbCommand("UPDATE Product SET P_status='มีสินค้า'  WHERE P_id=" & xCount, Cn)
                    Cm.ExecuteNonQuery()
                ElseIf Dr.Item(2) = 0 Then
                    Cm = New OleDbCommand("UPDATE Product SET P_status='สินค้าหมด'  WHERE P_id=" & xCount, Cn)
                    Cm.ExecuteNonQuery()
                End If
            End If
        Next