IF Statement

[GremlinSA]

I receive the Message:

No Practice need Update.

When I click OK, I do receive another similar message and so on.

So now you should be reciving one for Each item in the list... and one of them will return what your looking for (you might have missed it)..

So now lets change a few more lines...

                                strFlag = "Ignore"

                While Autoreader.Read()

                    prac_no = Autoreader.GetValue(0)
                    prac_enabled = Autoreader.GetValue(1)

                    For irow = 0 To DgvPracExcl.Rows.Count - 1

                        If prac_no = DgvPracExcl.Rows(irow).Cells(0).Value Then
                            If prac_enabled = DgvPracExcl.Rows(irow).Cells(3).Value Then

                               ' MsgBox("No Practice need Update", MsgBoxStyle.Information, "VeriSIS")

                                Exit For
                            Else
                                MsgBox("Practice need Update", MsgBoxStyle.Information, "VeriSIS")
                                strFlag = "Update"
                                Exit For
                            End If
                        End If

                    Next irow

                End While