Sub SearchAndChangeDataRow(ByVal DataTable As DataTable, ByVal Column As _
      String, ByVal SearchString As String)
        Dim Results As DataRow() = DataTable.Select(Column + " = '" + _
        SearchString + "'")
        For Each DataRow As DataRow In Results
            DataRow!Disabled = True
        Next
    End Sub